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This  report  describes  the  Green  language.  Designed  in  accordance  with  the  Ironman  require- 
ments of  the  Department  of  Defense,  the  Green  language  represents  a new  attempt  to  com- 
bine classical  language  features  with  features  often  found  only  in  specialized  languages. 
These  include  facilities  for  handling  exceptional  conditions,  parallel  processing,  represen- 
tation specifications  for  data,  encapsulated  definitions,  low  level  input-output,  and  access 
to  system  dependent  parameters. 
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1.1  Design  Goals 
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The  Green  language  wrs  designed  with  three  overriding  concerns:  a recognition  of  the 
importance  of  program  reliability  and  maintenance,  a deep  concern  for  programming  as  a 
human  activity,  and  efficiency. 

The  need  for  languages  that  promote  reliability  and  maintenance  is  well  established.  Hence 
emphasis  was  placed  on  program  readability  over  program  writability.  For  example,  the 
Green  language  requires  that  program  variables  be  explicitly  declared  and  that  thoir  type  be 
specified.  Automatic  type  conversion  is  generally  prohibited.  As  a resuit,  translators  can  in- 
sure that  the  types  of  objects  satisfy  their  intended  use.  Furthermore,  error  prone  notations 
have  been  avoided,  and  the  language  syntax  avoids  the  use  of  encoded  forms  in  favor  of 
more  English-like  constructs.  Finally,  the  language  offers  strong  support  for  separate  compi- 
lation of  program  units. 

The  concern  for  the  human  programmer  was  also  stressed  during  the  design.  Above  all,  an 
attempt  was  made  to  keep  the  language  as  small  as  possible,  avoiding  special  cases  and  elab- 
orate features  that  often  hinder  rather  than  assist  programming.  The  structure  of  the  lan- 
guage minimizes  the  number  of  underlying  concepts,  and  an  attempt  was  made  to  integrate 
all  features  in  a consistent  and  simple  way.  The  fact  that  the  form  or  meaning  of  a proposed 
construct  was  difficult  to  express  in  a systematic  way  was  grounds  for  rejection  of  the 
construct. 

No  language  can  avoid  the  problem  of  efficiency.  Languages  that  require  overly  elaborate 
translators  or  that  lead  to  the  inefficient  use  of  storage  or  execution  time  force  these  in- 
efficiencies on  all  machines  and  on  all  programs.  Every  construct  in  the  Green  language 
was  examined  in  the  light  of  present  implementation  techniques.  Any  proposed  construct 
whose  implementation  was  unclear  or  required  excessive  machine  resources  was  rejected. 

Perhaps  most  importantly,  none  of  the  above  goals  was  considered  something  that  could  be 
achieved  after  the  fact.  The  design  goals  drove  the  entire  design  process  from  the  beginning. 
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1.2  Language  Summary' 
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A program  in  the  Green  language  is  a sequence  of  higher  level  program  units,  which  can  be 
compiled  separately.  Program  units  may  be  subprograms  (which  define  executable 
algorithms),  definition  modules  (which  define  collections  of  entities),  or  paths  (which  define 
concurrent  computations).  The  facility  for  separate  compilation  allows  a program  to  be  de- 
signed, written,  and  tested  in  independent  parts.  This  facility  is  especially  useful  for  large 
programs  and  the  creation  of  libraries. 

A subprogram  is  the  basic  unit  for  expressing  an  algorithm.  A subprogram  may  have  para- 
meters, which  specify  its  connections  to  other  program  units.  The  Green  language  distin- 
guishes three  kinds  of  subprograms:  procedures,  functions,  and  exception  handlers. 

A procedure  subprogram  is  the  logical  counterpart  to  a series  of  actions:  for  example,  it 
may  read  in  data,  update  variables,  or  produce  some  output.  A function  subprogram  is  the 
logical  counterpart  to  a mathematical  function  for  computing  a value;  unlike  a procedure, 
a function  can  have  no  side  effects.  An  exception  subprogram  is  the  logical  means  for 
handling  a special  situation  that  can  occur  dynamically  during  program  execution,  e.g.  an 
arithmetic  overflow,  an  invalid  assertion,  or  a user  defined  exception  situation. 

A definition  module  is  the  basic  unit  for  defining  a collection  of  logically  related  entities. 
Portions  of  a definition  module  may  be  hidden  from  the  user,  thus  allowing  access  only  to 
the  logical  properties  expressed  by  the  definition  module.  For  example,  definition  modules 
may  be  used  to  define  a common  pool  of  data  and  types,  a package  of  related  subprograms, 
or  a collection  of  new  encapsulated  types. 

A path  is  the  basic  unit  for  defining  concurrent  computations.  Paths  may  be  implemented 
on  multiple  processors  or  with  interleaved  execution  on  a single  processor.  Communication 
between  paths  is  handled  by  associating  boxes  with  each  path.  The  boxes  allow  for  synchro- 
nization between  paths  and  for  transmission  of  data. 

Each  program  unit  generally  contains  two  parts:  a declarative  part,  which  defines  the  logical 
entities  to  be  used  in  the  program  unit,  and  a list  of  statements,  which  define  the  execution 
of  the  program  unit. 

The  declarative  part  associates  names  with  declared  entities.  A name  may  denote  a type,  a 
constant,  or  a variable.  A declarative  part  also  introduces  the  names  and  parameters  of  other 
subprograms,  paths,  and  definition  modules  to  be  used  in  the  program  unit. 

Statements  describe  actions  to  be  performed.  An  assignment  statement  specifies  that  the 
current  value  of  a variable  is  to  be  replaced  by  a new  value.  A subprogram  call  statement  in- 
vokes execution  of  a subprogram,  after  associating  any  arguments  provided  by  the  caller 
with  the  corresponding  formal  parameters  of  the  subprogram. 
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If  and  case  statements  allow  the  selection  of  an  enclosed  statement  list  based  on  the  value  of 
a condition  or  expression  at  the  head  of  the  statement.  An  assertion  statement  states  that 
some  correctness  condition  must  hold  whenever  control  reaches  that  point  in  a program.  An 
exception  statement  explicitly  raises  a special  situation  requiring  the  action  of  an  exception 
subprogram. 

The  basic  iterative  mechanism  in  the  language  is  the  loop  statement.  A loop  statement 
specifies  that  a list  of  statements  is  to  be  executed  repeatedly  until  an  iteration  specification 
is  completed  or  a loop  exit  statement  is  encountered. 

Certain  statements  are  only  applicable  to  paths.  An  inner  statement  specifies  that  a set  of 
paths  may  begin  execution.  A connect  statement  specifies  that  a path  is  ready  to  connect 
with  another  path  through  one  of  its  boxes.  A local  path  request  specifies  that  the  path  is 
ready  for  connection  from  another  path. 

Whenever  a rendezvous  is  achieved  between  a local  path  request  and  a connect  statement, 
any  specified  data  transfer  takes  place,  and  both  the  local  path  and  the  connecting  path  may 
continue. 

Every  element  in  the  language  has  a type,  which  defines  its  logical  properties  and  the  oper- 
ations that  can  be  performed  on  elements  of  the  type.  There  are  two  basic  classes  of  types: 
scalar  types  and  composite  types. 

The  scalar  types  INTEGER,  BOOLEAN,  and  CHARACTER  Eire  predefined.  Scaled  types 
provide  a means  of  performing  exact  numerical  computation,  without  the  restriction  to 
integer  values.  Real  types  provide  a means  of  performing  floating  point  computations,  which 
are  necessarily  approximate.  Enumeration  types  provide  a means  for  users  to  define  problem 
dependent  types  with  discrete  values. 

Composite  types  allow  definitions  of  structured  collections  of  related  elements.  The  com- 
posite types  in  the  language  are  array  structures,  record  structures,  and  accesses  to  record 
structures  that  are  allocated  dynamically.  A family  of  record  structures  may  be  def’ned  by 
associating  a record  type  with  a variant  part. 

The  concept  of  a type  is  augmented  with  the  concept  of  a subtype,  whereby  a user  may  con- 
strain the  set  of  allowed  values  in  a type.  Subtypes  may  be  used  to  define  subranges  of  scalar 
types,  arrays  with  a limited  set  of  index  values,  and  records  with  a particular  variant. 

Representation  specifications  may  be  used  to  specify  the  mapping  between  data  types  and 
features  of  an  underlying  machine.  For  example,  the  user  may  specify  that  an  array  is  to  be 
represented  in  packed  form,  that  objects  of  a given  type  must  be  represented  with  a speci- 
fied number  of  bits,  or  that  the  components  of  a record  are  to  be  represented  in  a specified 
storage  layout. 

Finally  the  language  includes  facilities  for  conditional  compilation  and  for  generic  program 
units. 
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1.3  Sources 


In  his  initial  preface  to  the  Pascal  report,  Niklaus  Wirth  stated  “the  choice  of  what  is  to  be  f 

omitted  from  a new  language  is  in  practice  much  more  critical  than  the  choice  of  what  is  to  ■ 

be  included.  The  decision  to  omit  a feature  requires  not  only  familiarity  with  this  feature 
(and  knowledge  how  to  live  without  it)  but  the  courage  to  face  the  inevitable  criticism  of 
its  absence  in  the  new  language  in  spite  of  its  presence  in  another  existing  language.” 

This  proolem  existed  in  this  design,  although  to  a much  lesser  degree  than  usual  because  of 
the  Ironman  requirements.  These  requirements  often  simplified  the  design  process  by  per- 
mitting us  to  concentrate  on  the  design  of  a logical  system  satisfying  a well  defined  goal, 
rather  than  on  the  definition  of  the  goals  themselves. 

Another  significant  simplification  of  our  design  work  resulted  front  earlier  experience 
acquired  by  several  successful  Pascal  derivatives  developed  with  Similar  goals.  These  are  the 
languages  Euclid,  Lis,  Mesa,  Modula,  Sue,  and  CS4.  .Many  of  the  key  ideas  and  syntactic- 
forms  developed  in  these  languages  have  a counterpart  in  the  Green  language.  We  may  say 
that  whereas  these  previous  designs  could  be  considered  as  genuine  research  efforts,  the 
Green  language  is  the  result  of  a project  in  language  design  engineering,  in  an  attempt  to 
develop  a product  that  represents  the  current  state  of  the  ait. 

Seveial  exi»i.ii. b languages  such  us  Algol  GS  and  Simula  and  also  recent  research  languages 
such  as  Alphard  and  Clu  influenced  this  language  in  several  respects,  although  to  a lesser 
degree  than  the  Pascal  family. 


2.  LEXICAL  ELEMENTS 
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This  section  defines  the  lexical  elements  of  the  language. 

2.1  Characters 

All  lexical  elements  may  be  composed  from  the  64  character  subset  of  ASCII.  These 
characters  are  grouped  as  follows; 

(a)  Alphabetic  characters 

ABCDEFGIIIJKLMNOPQRSTUVWXYZ 

(b)  Numeric  characters 
0123456789 

(c)  Special  characters 

!"#$%&’(  )*h,-  ./:;<=>?  @ ( \ ] 

(d)  The  underscore  character 


and  the  space  character. 

2.2  Identifiers 

An  identifier  is  formed  by  a sequence  of  alphabetic  and  numeric  characters,  the  first  being 
alphabetic.  An  underscore  may  be  inserted  bet  veen  parts  of  an  identifier.  An  identifier  must 
fit  on  a single  line,  and  all  characters  are  significant.  An  identifier  that  has  been  declared  is 
generally  referred  to  as  a name,  with  a prefix  designating  its  use,  e.g.  vanable_name  or 
type_name. 

Examples: 

COUNT  X UNE_C0UNT  GET_SYMBOL 

SN080L-4  XI  PAGE_COUNT  STOdE_NEXT_ITEM 

2.3  Numbers 

There  are  three  classes  of  numbers:  integers,  scaled  numbers,  and  real  numbers.  An  under- 
score may  be  inserted  between  parts  of  a number,  but  is  not  considered  significant. 

Integers  are  formed  by  a sequence  of  numeric  characters. 

Examples: 


12 


0 


1977 


123456 


123-456 


F||,rT  "T®|*f  ?l|!>!'nin'“*PlT,?lTl|W  '*’  'fUT'*1  T 
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A scaled  number  is  written  as  an  integer  or  as  a sequence  of  numeric  characters  with  a 
medial  decimal  point. 

Examples: 

12  n 0 0 123.456  10_000.1  1200 

A real  number  is  formed  by  appending  the  letter  E and  an  exponent  to  an  integer  or  a scaled 
number.  An  exponent  is  an  integer  optionally  prefixed  by  a + or  - sign 

Examples: 

12.0E10  0F0  IE-6  3.1 4159. 26535E0 

Non  decimal  integers  with  base  2,4,8,  or  16  are  written  as  a sequence  of  numeric  characters 
followed  by  a # and  a base.  For  hexadecimal  numbers  (base  16),  the  alphabetic  characters  A 
through  F may  be  used  with  their  conventional  meaning,  provided  that  the  number  begins 
with  a numeric  character. 

Examples: 

01 1001 1 -?=2  1777*8  2FEEE#16  0FFF416 

2.4  Character  Stnngs 

A character  string  is  formed  by  a sequence  of  characters  enclosed  by  quote  marks.  Strings 
of  length  one  also  denote  literals  of  character  types.  If  a string  contains  a quote  mark,  the 
quote  mark  must  be  written  twice.  Each  string  must  fit  on  a single  line.  Multiple  line  strings 
may  be  formed  using  the  concatenation  operator  &. 

Examples: 

"A"  " * " "A  SMALL  STRING" 

"FIRST  PART  OF  A STRING  THAT"  & 

" CONTINUES  ON  ANOTHER  LINE  " 

2.5  Comments  and  Pragmats 

Comments  may  l>e  placed  within  programs.  A stand  alone  comment  start."  with  the  charac- 
ters — and  is  terminated  by  the  end  of  the  line.  This  form  of  comment  may  not  appear 
within  an  expression  or  statement.  An  embedded  comment  is  enclos-d  by  left  and  right 
square  brackets.  Embedded  comments  may  not  cross  line  boundaries.  Comments  are  totally 
ignored  by  the  translator;  their  sole  purpose  is  the  enlightenment  of  the  human  interpreter 
of  the  program.  For  readability  of  this  manual,  comments  will  be  written  with  both  upper 
and  lower  case  letters. 

Pragmats  (for  pragmatics)  are  used  to  convey  information  to  the  translator.  They  start  with 
the  keyword  pragmat  and  are  terminated  by  the  end  of  the  line.  A pragmat  may  not  appear 
within  a simple  statement  or  within  a declaration. 
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Examples  of  comments: 


end  [GET_SYMBQLi , 

— a stand  aione  comment 

— and  its  continuation. 

Examples  of  pragmats: 

pragmat  NO-LIST 

pragmat  LIST 

pragmat  OPTIMIZE  TIME 

pragmat  INCLUOE  COMMON_TEXT 

pragmat  DEBUG 

2.G  Attribute  Qualifiers 


suppress  listing 
restore  listing 
optimization  specification 
include  text  file 
set  debugging  mode 


Attribute  qualifiers  denote  attributes  of  program  constructs.  An  attribute  qualifier  is  formed 
by  prefixing  one  or  more  occurrences  of  the  character  ' to  an  identifier.  Their  use  is 
described  with  the  corresponding  language  constructs.  Since  attribute  qualifiers  always 
contain  a 1 character,  their  identifiers  need  not  be  reserved. 


Examples: 


DATE  SIZE 


real’precision  system'clock  a' ’last 


2.7  Reserved  Keywords 

Language  constructs  may  contain  reserved  keywords.  These  words  may  not  be  used  as 
identifiers,  and  are  listed  below.  For  readability  of  this  manual,  the  keywords  appear  with 
lower  case  letters  in  boldface;  in  actual  programs  they  may  be  entered  with  upper  case 
ASCII  letters. 


abs 

declare 

if 

or 

scale 

access 

definition 

import 

others 

separate 

algorithm 

delay 

in 

out 

select 

alignment 

div 

inline 

send 

all 

inner 

packing 

subtype 

and 

interrupt 

parameter 

array 

else 

is 

path 

assert 

elsif 

pragmat 

then 

at 

end 

loop 

precision 

type 

exception 

private 

exit 

mod 

procedure 

begin 

until 

bits 

new 

raise 

use 

box 

for 

none 

range 

function 

noi 

receive 

null 

record 

when 

case 

repeat 

while 

connect 

generic 

of 

return 

constant 

goto 

only 

reverse 

xor 

2.8  Spacing  Conventions 


Spaces  may  be  inserted  freely  between  lexical  elements.  Except  for  comments  and  pragmats, 
an  end  of  line  is  equivalent  to  a space.  At  legist  one  space  must  appear  between  two 
identifiers  (reserved  or  not)  that  are  not  separated  by  a special  character. 

2,9  Syntax  Notation 

In  the  remaining  chapters,  a simple  variant  of  Backus-Naur  form  is  used  to  describe  the 
context  free  syntax  of  the  language.  In  particular, 

(a)  Lower  case  words,  possibly  containing  medial  underscore,  denote  syntactic  categories, 
c.g.  adding_operator 

(b)  Boldface  words  denote  keywords  in  the  language,  e.g.  srrsy 

(c)  Square  brackets  enclose  optional  items,  e.g.  return  (expression) 

(d)  Braces  enclose  items  repeated  zero  or  more  times.  For  example,  a list  of  identifiers  is 
defined  as: 

identifier list.  : : - identifier  {.identifier} 
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3.  DECLARATIONS  AND  TYPES 


This  section  describes  the  types  in  the  language  and  the  rules  for  declaring  constants  and 
variables. 


3.1  Declarations 


A declaration  associates  a name  with  a language  construct.  There  are  several  kinds  of 
declarations. 

declaration  . : - 

element -declaration 
| subtype-declaration 
| subprogram-declaration 
I definition_decls'ation 
| vaiiant  part 


type_aeciaration 
access-type -declaration 
path— declaration 
generic— instantiation 
null; 


A null  declaration  introduces  no  new  names;  it  may  be  used,  for  example,  to  define  a record 
variant  with  no  components.  Declarations  for  elements,  types,  subtypes,  and  access  types 
are  described  here.  The  remaining  declarations  are  described  in  later  sections. 


3.2  Element  Declarations 


Element  declarations  introduce  constants  and  variables. 


element-declaration  : : « 

variable-declaration  | renaming-declaration 

I constant-declaration  I deferred_constant_declaration 


variable -declaration  : : = 

identifier— list,  type  |:  r expression]  ; 

renaming-declaration  : : = 

identifier;  type  ==  variable, 

constants  declaration  ; ; = 

identifier:  constant  (type)  * ression; 


deferred-conttant-declaration  ; : = 
identifier:  constant  type, 

A variable  declaration  associates  one  or  more  identifiers  denoting  new  variable  names  with 
a type.  The  declaration  may  specify  an  initial  value  for  the  variables.  Each  initialization  is 
equivalent  to  an  assignme  it  statement  performed  immediately  after  the  declaration. 


i i; I 
>;  /- 


3 ^ 

i J 


* a 
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A renaming  declaration  arsociates  a local  name  with  a variable.  The  local  name  can  be  used 
as  a shorthand  for  the  variable,  e.g.  in  references  to  an  array  or  record  structure. 

A constant  declaration  associates  a name  with  a value  specified  by  an  expression.  The  value 
is  computed  when  the  constant  declaration  is  elaborated.  The  type  of  the  constant  may  be 
omitted  when  the  value  is  a literal  whose  type  is  known. 

A deferred  constant  declaration  specifies  the  name  and  type  of  a constant  whose  value  is 
computed  in  specially  restricted  contexts. 

Examples; 

ITEM-1,  ITEM  _2  : INTEGER; 

SORT-COMPLETED  : BOOLEAN  :«  FALSE; 

OPTION-TABLE  : array  <1  . . N)  of  OPTION, 

ANCESTOR  : PERSON  ==  JOHN.  FATHER.  MOTHER; 

ACCURACY  : constant  = 1 E-30; 

LIMIT  : constant  INTEGER  = 10-000; 

NULL-ENTRY  : conitant  ENTRY. 

3.3  Type  and  Subtype  Declarations 

A type  specifies  a set  of  properties  for  elements  of  the  type.  A type  declaration  associates  a 
name  with  a type. 

type_declaration  : - type  identifier  “ type-definition; 
type_ definition  ; = type  | private  [parameter] 


i 

i 

{ 


type  ; ; = 

simple- type -definition  (constraint) 

| array_tvpe  i record-type 

simple_type_definition  : = scalar-type  I type_denotBtion 

type-denotation  ; = type. .name  I subtype-name  | attribute 

constraint 

scalar_.constraint  I array -constraint  I record-constraint 

subtype -declaration  : = 

subtype  identifier  = type— denotation  [constraint)  ; 
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A subtype  declaration  associates  a name  with  e parent  type  whose  properties  may  be  limited 
by  some  constraint.  The  use  of  private  as  a type  definition  is  explained  in  the  section  on 
definition  modules. 


I 


3.4  Scalar  Types 

Scalar  types  describe  discrete  values  and  the  real  numbers.  Discrete  types  may  be  used  for 
indexing.  The  scalar  type  names  INTEGER,  BOOLEAN,  and  CHARACTER  are  predefined 
discrete  types.  Other  types  may  be  declared  by  the  user. 

scalar_typs  : : = discrete-type  I real-type  | (range) 

discrete-type  : v scaled-type  I enumeration-type 

scalar-constraint  : : « rsnge  (range) 


range  : * simple_cxprcssion  ..  simple  ^expression 

A scalar  constraint  is  specified  by  giving  a range  that  describes  a subset  of  values  of  the 
parent  type.  The  range  L . . K describee  the  subset  of  values  from  L to  R inclusive.  A scalar 
type  given  as  a range  is  equivalent  to  giving  the  parent  type  of  the  expressions  defining  the 
range,  with  the  range  as  a constraint. 

The  functions  SUCC  and  PRED  are  predefined  on  all  discrete  types  for  which  there  Is  an 
implied  ordering.  They  return  the  next  higher  or  lower  value  in  the  rnnge  of  values  for  the 
type.  In  addition,  for  an  ordered  discrete  subtype  or  type  T,  the  attributes  T FIRST  and 
T'LAST  denote  the  minimum  and  maximum  valueg  of  the  type. 

3.4.1  Integer  types 

The  predefined  type  name  INTEGER  denote#  a subset  of  the  whole  numbers.  The  range  of 
integer  numbers  is  implicitly  limited  by  the  representation  adopted  by  an  individual  imple- 
mentation, Derived  types  may  be  obtained  by  imposing  a range  constraint. 

Examples: 


typ«  PAGE-NUM  - INTEGER; 

type  LINE-SIZE  - <1  . . MAX-LINE..SIZE); 


subtype  SMALL-INT 
subtype  COLUMN-PTR 


INTEGER  f*r>oe  (-10..  10); 
LINE-SIZE  range  (1  . 10), 


r 


1 


1 
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3.4.2  Sealed  types 


Scaled  type*  provide  a mean*  of  performing  exact  numeric  calculations  on  non-integer 
values.  Corresponding  to  every  scaled  type,  there  is  a constant  scale  factor.  All  quantities 
of  the  type  are  an  integer  multiple  of  the  scale  factor.  The  scale  factor  is  specified  in  the 
type  declaration  and  has  a value  which  is  either  an  integer  or  the  reciprocal  of  an  integer. 


tcaled_.type  : = scale  timple_expretsion 


The  value  of  the  expression  defining  the  scale  must  be  known  at  translation  time.  Within 
the  scope  of  the  type,  the  scale  factor  of  a scaled  type  '1'  can  be  accessed  with  the  attribute 
T’SCALE. 


Examples: 


tVP« 

TICK  - 

icale 

1 / / 00 

rang* 

(0  . 

. 3600); 

type 

VOLT  - 

tesla 

t / / 1 000 

range 

(0  . 

. 15), 

type 

JOULF.  - 

teal* 

1000 

range 

(0  . 

. 1-000. 

3.4.3  Real  types 


Real  types  provide  a means  of  performing  floating  point  computations,  which  are 
necessarily  approximate.  The  relative  precision  of  a real  number  is  specified  in  the  type 
declaration,  and  is  used  to  hound  the  errors  inherent  in  floating  point  computation, 


real_typ*  precision  simple. .exproiiion 


The  value  of  the  expression  defining  the  precision  must  he  known  at  translation  time.  With- 
in the  scope  of  a real  type  T,  the  precision  of  the  type  can  be  accessed  with  the  attribute 
IMPRECISION, 


Examples: 


typs  LONG-REAL 
typs  COEFFICIENT 


n precision  1 E— 40, 

“ precision  1 E-10  rsnjje  (- 1 E0  . . 1E0); 


3.4.4  Enumeration  types 


An  enumeration  type  defines  a set  of  values  by  listing  the  values  of  the  type.  These  values 
are  unordered  If  the  separator  ! Is  used;  they  are  listed  m increasing  order  if  the  separator 
• is  used. 


oriumcrotion-typu  : : " 

fenurnoration.. value  I ! enumeration  .value ) ) 
j (enumeration  voluo  {<  enumeration..  value  ;) 


enumeration  .value  . “ identifier  | character 


Exam  lies : 


type  SUIT 

type  HEX-LETTER 

type  DAY 


(CLUBS  " DIAMONDS  < HEARTS  < SPADES); 

(“A"  I "B"  I "C"  I "D"  I "E"  I “F"); 

(MON  I TUE  I WED  I THU  I PR  I I SAT  I SUN); 


lubtype  WEEK-DAY 
•ubtype  REST_DAY 


DAY  range  (MON  . . FRI); 
DAY  range  (SAT  . . SUN); 


3.4.6  Boolean  and  character  types 

The  enumeration  type  name  BOOLEAN  is  predefined.  It  contains  the  two  unordered  values 
TRUE  and  FALSE 

The  enumeration  type  name  CHARACTER  is  a standard  lihrary  defined  type.  The  allowed 
characters  and  their  ordering  are  defined  hy  a given  implementation. 

3.6  Array  Types 

An  array  is  a collection  of  elcmenU  of  the  same  element  type.  The  elements  of  an  array  are 
designated  by  Indices. 

array  , type  ; ; " irray  (ir.dex  {,  inuex }!  of  type 


index  : ; = range-denotation 
range. .denotation  : : » range 


type-denotation 


array -conitraint  ; ; * (range.  denotation  {.range-denotation}) 

The  type  of  an  array  is  given  by  the  number  of  ita  indices  and  the  type  of  its  elements.  An 
index  has  a specified  range,  which  is  not  part  of  the  type  of  the  array.  The  index  * denotes 
an  arbitrary  range  of  any  discrete  type. 

When  an  array  type  name  has  been  defined  in  a type  declaration,  an  array  constraint  may  be 
associated  with  the  name  In  order  to  specify  the  actual  ranges  of  the  indices. 

For  an  array  type  T,  the  attributes  T'RANGE,  T'FIRST,  and  T'LAST  denote  the  range  of 
the  first  index,  its  lower  hound,  and  its  upper  bound.  Similarly,  the  attributes T'  'RANGE, 
T’  'FIRST,  and  T 'LAST  serve  the  same  role  for  the  second  index,  and  so  forth. 


q 


Examples; 

type  T = arrsy  <*,*)  of  BOOLEAN; 

A ; TO  ..  10,  1 100); 

8 : array  (1  ..  10,  1 ..  100)  of  BOOLEAN; 

A (-IRST  [value  is  1 ) 

A LAST  [value  is  100] 

3.5.1  Dynamic  arrays 

The  range  of  each  index  for  an  array  must  be  known  at  the  time  of  array  allocation.  If  the 
range  of  an  index  is  not  computable  at  translation  time,  the  array  is  considered  as  a dynamic 
array.  Dynamic  arrays  may  also  appear  in  records  denoted  by  access  types. 

3.5.2  Array  aggregates  and  strings 

An  array  aggregate  denotes  a value  for  an  array,  i.e.  is  a constructor  for  an  am 
Indices  are  denoted  by  selections  and  element  values  by  expressions. 

array -aggregate  : ; - character_string 

i [type,  name)  (element-specification  {.element-specification}) 

element-specification  : : = selection:  expression 

selection  = selected  ..value  {I  selected—  value } 

selected -value  : : » 

number  | enumeration_value  I range-denotation  I others 


A selection  specifies  a set  of  individual  values  of  a discrete  type.  A range  denotation  given  in 
a selection  stands  for  all  values  in  the  range.  The  keyword  others  denotes  all  other  elements 
not  specified  in  previous  selections.  Selections  are  also  used  in  case  statements  and  record 
variants. 

A character  string  is  considered  as  an  array  aggregate.  A string  of  N characters  for  N ^ 1 is 
an  array  of  a character  type.  Its  range  is  ] . . N, 

Multi— dimensional  array  aggregates  are  treated  as  arrays  of  arrays. 


i 
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Examples: 


V 


L 


type  TABLE 
type  LINE 


array  (1  . . 10)  of  INTEGER; 

array  (1  . . MAX_LINE_SIZE)  of  CHARACTER; 


A : TABLE  : = (1  ! 2:  1,  othen:  0); 


8LANK_LINE:  constant  LINE  = (1  . . MAX_LINE_SIZE:  " "); 


3.5.3  Sets 

The  predefined  type  name  SET  denotes  one-dimensional  boolean  arrays, 
type  SET  = array  (*)  of  BOOLEAN; 

Boolean  valued  operators  are  applicable  to  boolean  vectors,  i.e.  one  dimensional  boolean 
arrays.  These  operators  perform  the  corresponding  operations  on  an  element  by  element 
basis.  Array  aggregates  may  be  used  '.c  denote  set  values. 

Examples: 

type  WEEK  = SET  (DAY);  ! set  type) 

(TUEITHU:  TRUE,  othen:  FALSE)  si*  : 2 days] 

(X  and  Y)  = X (test  if  X is  a subset  of  Y) 

X (E)  = TRUE  (test  if  E is  an  element  of  X) 

3.6  Record  Types 

A record  type  defines  a structure  with  ;verai  components.  The  names  and  types  of  the 
components  are  introduced  in  the  element  decimations  of  the  component  list.  A record  type 
may  include  a variant  part  and  hence  define  a family  of  structures. 


record_type  : : r record  component— li't  and  record 
component_list  (element-declaration  } (variant-part) 

vananl_part  . = case  discriminant  of  (variant } end  case; 
discriminant  : : =*  variable-name 
variant  ; when  selection  component-list 
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An  element  declaration  defining  a record  component  may  specify  an  initial  value  for  the 
component. 


i 


h 

f 

p 

W. 


i 

I 

f. 


r 


Example: 

type  DATE  = 
record 

DAY  : (1  . . 31); 

MONTH:  MONTH_NAME; 
YEAR  : (0.  2000). 
end  record: 


3.6.1  Constant  components,  unassignable  components,  and  variant  parts 

A record  component  declared  as  a constant  serves  to  denote  a constant  valued  component 
that  has  the  same  value  for  all  records  of  the  type. 


A record  component  declared  as  a deferred  constant  is  an  unassignable  component.  Its  value 
may  only  be  set  by  a complete  record  assignment. 


A record  type  with  a variant  part'  specifies  a family  of  record  structures.  A variant  part  is 
discriminated  by  a previously  declared  component  called  the  discriminant  (or  tag  field). 
Each  variant  defines  the  components  for  the  corresponding  value  of  the  discriminant.  The 
discriminant  must  be  declared  as  a deferred  constant  and  hence  is  unassignable. 

Example: 


type  PERIPHERAL  = 
record 


STATUS:  (OPEN  ! CLOSED); 

UNIT  : constant  (PRINTER  ! DISK  ' DRUM), 
case  UNIT  of 

when  PRINTER  =>  LINE_COUNT:  (1  ..  PAGE_SIZE); 
when  others  => 


CYLINDER  :CYLINDER_INDEX; 
TRACK  : TRACK_NUMBER, 

end  CBse; 


end  record; 


3.6.2  Record  aggregates  and  record  constraints 


A record  aggregate  denotes  a value  for  a record,  i.e.  is  a constructor  for  a record.  The  value 
is  constructed  by  giving  the  values  of  its  components. 


1 
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record-aggregate  : : = [type_name]  (component-specification 
{.component-specification  }) 

component— specification  : : = 

component-name  {(component-name }:  expression 
record— constraint  : : = record— aggregate 

If  a record  type  contains  a variant  part,  the  selected  component  names  must  correspond  to 
the  specified  value  of  the  discriminant. 

If  a previously  declared  record  type  contains  several  variants,  a record  constraint  may  be 
used  to  constrain  record  variables  or  subtypes  to  a specified  variant.  The  record  constraint 
specifies  the  value  of  the  selected  variant.  It  is  expressed  in  the  form  of  a record  aggregate 
where  values  are  provided  only  for  discriminants. 

Examples  of  record  aggregates: 

(DAY:  4,  MONTH:  JULY,  YEAR:  1776) 

(STATUS:  CLOSED,  UNIT:  DISK,  CYLINDER:  9,  TRACK:  1i 

Example  of  record  constraint: 

subtype  DISK-OEVICE  = PERIPHERAL(UNIT : DISK); 

3.7  Access  Types 

Normal  record  variables  declared  in  a program  arc  accessible  by  their  identifier.  They  exist 
during  the  lifetime  of  the  declarative  part  to  which  they  are  local  and  are  hence  said  to  be 
static.  In  contrast,  a variable  of  an  access  type  is  used  to  designate  a record  that  is  allocated 
dynamically. 

access— type -declaration  : = access  type  identifier  -=  type; 

Access  to  a dynamic  record  is  achieved  via  an  access  variable  which  may  be  set  by  an 
allocation  statement  or  by  assignment  of  another  access  variable.  The  value  of  an  access 
variable  that  does  not  designate  a dynamic  record  is  denoted  by  none. 

Each  access  type  declaration  implicitly  defines  a collection  of  dynamically  allocated  records 
that  can  be  referenced  by  variables  of  the  access  type  ;iven  record  may  be  designated  by 
more  than  one  variable  of  the  access  type.  r 'mponenti  ol  the  records  of  an  access  type  may 
belong  to  the  same  access  type. 

A representation  specification  (see  section  10)  may  be  used  to  specify  the  storage  space  to 
he  (statically)  reserved  for  the  collection  of  records  associated  with  an  access  type. 
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Examples: 

access  type  PERSON  == 
record 

NAME  : STRING; 

AGE  : INTEGER; 

MOTHER  : PERSON; 

FATHER  : PERSON; 

end  record ; 

access  type  LIST _ ITEM  == 
record 

VALUE  : INTEGER; 

SUCC  • LIST-ITEM; 

PRED  : LIST.ITEM; 
end  record; 

3.8  Type  Conformity 

Each  type,  subtype,  variable,  and  constant  has  a base  type,  which  is  the  fundamental 
property  used  to  check  type  conformity. 

Declarations  of  distinct  type  names  always  denote  distinct  base  types,  even  if  their 
definitions  are  identical.  Type  constraints  do  not  alter  the  base  type.  The  base  type  of  a 
subtype  is  that  of  its  parent  type.  The  base  type  of  a variable  or  constant  is  that  of  the  type 
appearing  in  the  declaration. 

Declarations  involving  unnamed  types  obey  the  following  rules: 

(a)  If  the  type  is  given  as  an  enumeration  or  as  a record,  the  base  type  is  distinct  from  any 
other  enumeration  or  record  type,  even  if  their  definitions  are  textually  identical. 

(b)  If  the  type  is  given  as  a range,  the  base  type  is  that  of  the  expressions  defining  the 
range. 

(c)  Two  real  or  scaled  types  have  the  same  base  types  if  their  precisions  or  scale  factors  are 
the  same. 

(d)  Two  array  types  have  the  same  base  type  if  they  have  the  same  number  of  dimensions 
and  if  their  elements  have  the  same  base  type  and  constraints. 

If  a type  A is  defined  in  terms  of  another  type  name  B 

type  A = 6, 

then  A and  B are  two  different  types  that  share  the  same  logical  properties  but  not 
necessarily  the  same  representation.  Explicit  conversions  between  related  types  like  A and  B 
are  possible  and  must  be  written  as  typed  expressions. 


M 
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3.9  Declarative  Parts 


Each  program  unit  may  contain  a declarative  part  specifying  its  declarations  and  other  local 
information. 

declarative_part  : :=  [import-clause)  {declaration} 

{representation— specification  } {body  } 

body  : : = subprogram -body  | definition— module-body  I path-body 

An  identifier  declared  within  a program  unit  has  a scope,  which  consists  of  the  unit  in  which 
the  identifier  is  declared  and  all  inner  units  that  do  not  redeclare  the  same  identifier.  An 
identifier  is  said  to  be  “local”  to  the  unit  in  which  it  is  declared,  and  “global”  to  all  inner 
units  that  do  not  redeclare  the  same  identifier. 

An  import  clause  is  used  to  import  identifiers  of  definition  modules.  Representation 
specifications  define  particular  type  representations.  The  bodies  of  subprograms,  definition 
modules,  and  paths  declared  in  the  declaration  list  appear  at  the  end  of  the  declarative  part. 
These  constructs  are  defined  in  later  chapters. 
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4.  VARIABLES  AND  EXPRESSIONS 


4.1  Variables 


A variable  denotes  a stored  value  of  a given  type.  It  may  be  a name  denoting  a scalar  value, 
an  array,  or  a record.  Alternatively,  it  may  denote  an  element  of  an  array,  a slice  of  an  array, 
or  a record  component. 


variable  : = 

variable-name  i array  .element  I slice  | record-component 


array —element  ::=  variablelexpression  {.expression  }) 
slice  : = variable(rangc_denotation) 

record. .component  = variable.component_name  j variable  all 


For  array  elements,  the  expressions  denote  index  values.  For  array  slices,  the  specified  range 
denotes  a contiguous  sequence  of  index  values. 


Record  components  may  denote  either  components  of  static  record  variables  or  components 
of  dynamic  records  designated  by  access  variables.  The  qualifier  all  denotes  all  components 
of  a dynamic  record.  A record  component  within  a record  variant  can  only  appear  in 
contexts  where  the  particular  variant  is  known. 


Examples: 


PRESSURE 
MATRIXll.J+l! 
TABLED  . . N) 


APPOINTMENT  DAY 
STACK  (TOP)  . NAME 
NEXT SUCC VALUE 


4.2  Scalar  Values  and  Attributes 


A scalar  value  denotes  a value  of  a scalar  type.  In  addition,  scalar  values  are  used  to  denote 
atttnbutes  of  declared  entities. 


scalar_value  : = number  j enumeration-value  I attribute 
attribute  : = denotation  attribute-qualifier  • 
denotation  : = 

name  : variable  i path -denotation  | box-denotation 
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An  attribute  qualifier  specifies  a property  of  some  denoted  program  construct.  An  attribute 
qualifier  for  a type  is  also  an  attribute  qualifier  for  all  variables  of  the  type.  Specific 
attribute  qualifiers  are  described  with  the  corresponding  language  constructs. 

Examples  of  attributes: 

X’PRECISION  [the  relative  precision  of  a variable] 

INDEX* FIRST  [the  lower  bound  of  3 range] 

DATESIZE  [the  number  of  bits  in  a record] 

4.3  Expressions 

An  expression  is  a formula  that  defines  the  computation  of  a value. 

expression  : = 

simple_expression  [relational  .operator  simple_expression] 

! simple  .expression  is  [not]  range -denotation 

simple_expression  : = [$imple_expression  adding_operator]  term 

term  = [term  multiplying-operaluii  factoi 

factor  = [unary-operator]  primary 

primary  ; = variable  | scalar-value  | array-aggregate 

I record -aggregate  ! function_call  | (expression) 

| qualified.,  expression  | non* 

function-call  : = subprogram_call 

The  type  of  an  expression  depends  on  the  type  of  its  components,  as  described  below. 

Examples  of  primaries: 

VOLUME 

4.0 

(1  . 10  0) 

SINE  (X) 

(LINE-COUNT  + tOI 
REAL(I  J) 


(variable] 

[number] 

[array  aggregate] 

[function  call] 
[parenthesized  expression) 
[qualified  expression] 
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Examples  of  expressions; 


VOLUME 

-4.0 

not  DESTROYED 
LINE-COUNT  mod  PAGE-SIZE 
B*B  - 4EO*A*C 
(INDEX  = 0]  or  ITEM. .HIT 
PASS-WORDO  . . 5)  - "JAMES" 
X it  1 . . 10 

4.4  Operators 


[primary] 

[factor) 

[factor] 

[term) 

[timple  expression] 
[simple  expression] 
[expression] 
[expression] 


The  operators  in  the  language  are  grouped  into  four  classes 


relational  ..operator 

: : - ‘1 

/=  1 

< 1 

<»  1 

> 1 

> = 

adding  operator 

: * + i 

_ I 

or  | 

xor  | 

& 

multiplying  operator 

: : - * 1 

/'  1 

1 //  1 

mod  | 

div  ] 

and 

unary  .operator 

- + 1 

- 1 

not  i 

abi 

These  operators  have  a precedence  that  specifies  the  order  of  evaluation  within  an 
expression.  Unary  operators  ore  applied  first,  multiplying  operators  second,  adding 
operators  third,  and  relational  operators  last.  Sequences  of  operators  of  the  same  precedence 
are  evaluated  from  left  to  right. 


The  use  and  meaning  of  the  operators  are  given  below.  All  binary  operators  apart  from  is 
and  * must  be  applied  to  operands  of  the  same  type.  In  particular,  to  perform  arithmetic 
on  two  numeric  values  of  differing  types,  one  of  the  values  must  be  explicitly  converted  to 
the  type  of  the  other. 


4.4.1  Relational  operators  and  is 


The  relational  operators  and  is  all  return  boolean  values, 


Operator 

Operation 

Operand  Types 

Result  Type 

is  ( not  1 

range 

membership 

any  scalnt  type 
and  corresponding 
range 

boolean 

1 

~ I 

equality  and 
inequality 

any  type 

boolean 

test  for 

any  ordered 

boolean 

. . -a 

relative 

ordering 

type 

Li 
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Note  that  equality  and  inequality  are  defined  for  any  two  objects  of  the  same  type. 
4.4.2  Adding  operators 

All  adding  operators  return  a result  of  the  same  type  as  the  operands. 


Operator 

Operation 

Operand  Types 

Result  Type 

i • 

f — 

addition  and 

subtraction 

numeric 

same  numeric  type 

; ’ 

or  xor 

inclusive  and 

exclusive 

disjunction 

boolean, 
boolean  vector 

boolean, 
boolean  vector 

& 

concatenation 

onedimensional 
arrays,  slices, 
array  elements, 
and  characters 

onedimensional 
array  of  element 
type 

The  operator  & concatenates  the  elements  in  one  array  to  those 
strings,  this  operation  results  in  conventional  string  concatenation. 

in  another  array.  For 

}: 

4.4.3  Multiplying  operators 

Operator 

Operation 

Operand  Types 

Result  Type 

- 

* 

multiplication 

numeric 

numeric 

/ 

real  division 

real 

real 

- 

// 

scaled 

division 

integer 

scaled 

div 

integer 

division 

integer 

integer 

mod 

modulus 

integer 

integer 

and 

conjunction 

boolean, 
boolean  vector 

boolean, 
boolean  vector 
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The  operator  * denotes  mathematical  multiplication.  It  takes  two  integer  or  real  operands 
of  identical  type  and  gives  a result  of  the  same  type.  In  addition,  a scaled  operand  can  be 
multiplied  by  an  integer  to  give  a result  whose  type  is  the  same  as  the  scaled  operand, 

The  operator  / denotes  mathematical  division  and  is  defined  only  for  real  types,  The 
resulting  type  is  the  same  as  that  of  its  operands. 

The  operator  / / denotes  mathematical  division  and  is  defined  only  for  operands  of  integer 
type.  The  result  is  of  scaled  type,  where  the  particular  scale  factor  depends  upon  the 
operands. 

The  operators  div  and  mod  denote  integer  division  with  truncation  and  the  remainder  after 
integer  division.  These  operators  are  defined  only  for  integer  operands. 


Examples: 


1 

INTEGER  := 

1. 

J 

INTEGER  : = 

2, 

K . 

INTEGER  :» 

3, 

M : 

seals  1 / / 3 : " 

4 113; 

N : 

scale  1 / / 3 : = 

5/13; 

X : 

precision  IE-6 

- 1E0 

V : 

precision  IE- 6 

= 2E0 

1 

I 


I 


i j 

< • 

• 1 


H 

i i 
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Expression 

Value 

Type 

1 3 

1 2 

1 # J 

2 

same  as  1 and  J 

I j 

.)  **  M 

B//3 

same  as  M 

1 a 

j j 

X / Y 

O.bEO 

aame  as  X and  Y 

J 

K div  J 

1 

same  as  K and  J 

j 

K mod  J 

1 

same  at  K and  J 

i 

M + 1//3 

5//3 

same  as  M 

■ 

N + K//3 

4.4.4  Unary  operators 

B//3 

same  as  N 

i 

f : 

s 

Unary  operators  are  applied  to  a single  operand. 

j 

Operator 

Operation 

Operand  Type 

Result  Type 

4 _ 

identity  and 
negation 

numeric 

same  numeric  type  j 

not 

negation 

boolean, 
boolean  vector 

boolean,  " 

boolean  vector 

abs 

ubsol'.j.e 

velue 

numeric 

same  numeric,  typo  1 

-! 


I 


jg 


r 

f 

( 


f 

r 

r 

t 

i 

i 

i 

i 
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i 

i 

I 

\ 
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i 
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4.5  Qualified  Expressions 

A qualified  expression  is  used  to  convert  an  expression  to  another  type,  to  state  the  type  of 
an  expression  explictly,  or  to  constrain  an  expression  to  a given  subtype. 

quallflad_expreiiion  : » 

typed -expression  | constrained-expression 

typed_exprai»ion  : • type_name(exprenion) 

constrained-expression  : : “ »ubtypf_name(exprenlon) 

4.6.1  Type  conversions 

For  numeric  expressions,  a typed  expression  may  specify  a numeric  type  that  is  different 
from  the  type  of  the  expression.  In  this  case  the  value  of  the  expression  is  converted  to  the 
named  type.  The  nearest  value  of  the  required  type  is  the  value  after  conversion.  If  two 
values  are  equidistant  from  the  expression  value,  then  the  larger  value  Is  chosen. 

Typed  expressions  can  also  be  used  for  type  conversions  between  related  types  with 
Identical  logical  properties.  No  other  type  conversion*  arc  permitted. 

Examples  of  numeric  type  conversion: 

REAL(2*1 ) (value  it  converted  to  rest) 

INTEGERCl  .61  [value  Is  2| 

INTEGER!— 0,6)  (vulucliOl 

Example  of  conversion  between  related  types: 

type  A_FORM  « B-FORM; 

X : A-FORM; 

Y ; B-FORM; 

X : » A.  FORM(Y); 

4.6.2  Type  specification  of  values 

The  same  element  may  appear  in  two  enumeration  types.  In  these  cases,  and  whenever  the 
type  of  a literal  or  aggregate  is  not  known  from  the  context  (e.g.  an  actual  parameter  of  an 
overloaded  procedure),  a typed  expression  may  he  used  to  state  the  type  explictly, 
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Examples: 


typs  MASKING-CODE  - (FIX  I I 
type  INSTR-CODE  - ICLA  I I 

PRINT  (MASKING -CODE (DEC)  ); 
PRINT  (INSTR_CODE(DEC) ); 

4.6.3  Constrained  expressions 


DEC  I EXP  I SIGNIF); 
DEC  I TNZ  I SUB); 


— DEC  It  of  typs  MASKING-CODE 

— DEC  li  of  type  INSTR-CODE 


An  expression  of  a given  type  may  have  values  that  are  not  necessarily  in  one  of  its  sub- 
types.  A qualified  expression  with  a subtype  name  specifies  that  the  value  of  an  expression 
must  belong  to  the  subtype.  If  it  docs  not,  an  exception  condition  is  raised. 

Examples: 

subtyps  SMALL_INT  *■  INTEGER  rings  (-10  . 10); 

VALUE  : INTEGEH; 

INDEX  : SMALL-INT; 

READ  (VALUE); 

INDEX  : - SMALL-INT( VALUE); 
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5.  STATEMENTS 


Statements  cause  actions  to  be  performed,  Statements  in  a list  of  statements  are  executed  in 
sequence  until  a transfer  statement  is  encountered. 

A statement  may  be  simple  or  compound.  A simple  statement  contains  no  part  that  consti- 
tutes another  statement 

statement-list  : : » { ( label  ] stateme 't  } 

statement  : : * simple-statement  | cu..'pound_s!atement 
I transfer-statement 

simple— statement  : " assignment-statement  | allocation— statement 
| subprogram-call -Statement  | assert.  itatement 

I synchroni.’ation—siatemant  | inline. .statement 

I null  ; 

compound-statement  : : » if-.statement  I case-statement 
I loop..statemont  I select-statement  I block 

trjnsfer„statemeni  : ; ■»  loop-exit.-Statoment 

I return-statement  | exception-statement 

I goto -Statement 

label  : ; ->  • '■<  identifier 

Execution  of  a null  statement  results  in  no  action.  Synchronization  and  select  statements 
are  described  in  the  section  on  parallel  processing.  Inline  statements  are  described  in  the 
section  on  subprograms.  Exception  statements  are  described  in  the  section  on  exception 
handling.  The  remaining  statements  are  described  here. 

5,1  Assignment  Statements 

An  assignment  statement  replaces  the  current  value  of  a variable  with  a new  value  speci- 
fied by  an  expression. 

assignment-statement  . : - variable  : »■  expression; 

The  variable  uiul  the  expression  must  lie  of  the  same  parent  type  and  the  value  of  the  ex- 
pression must  satisfy  any  constraints  applicable  to  the  variable.  If  the  constraints  cannot  be 
cheeked  during  translation,  an  execution-time  check  shall  be  provided  by  the  translator. 
This  i heck  will  result  in  an  exception  condition  if  the  expression  value  does  not  satisfy  the 
constraint-  If  the  exception  is  suppressed  the  translator  will  omit  the  checks. 


< 

I 
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Examples: 


KEY-VALUE  : = MAX-VALUE  - 1 ; 

SHADE  : 

» BLUE; 

Examples  of  constraints: 

i.  J 

INTEGER  range  (1  ..  10); 

K 

INTEGER  range  (1  ..  20); 

1 : = 

J;  — identical  ranges 

K : “ 

J;  -- compatible  ranges 

J ; - 

K,  ---  can  only  be  checked  during  execution 

5.1.1  Array  and  slice  assignments 

For  an  assignment  to  an  array  or  an  array  slice  variable,  the  expression  must  denote  a value 
with  the  same  number  of  elements.  For  slice  assignments  where  the  array  name  of  the  slice 
variable  also  appears  in  the  expression,  overlapping  of  index  ranges  is  forbidden. 

Examples: 

A array  (0..  30)  of  CHARACTER; 

B array  ( 1 ..  31  i of  CHARACTER; 

A : » B;  — same  number  of  elements 

A(1  ..  10)  :»  AMI. .20),  --  non  overlapping  ranges 

A(1  ..5)  ; “ "JAMES";  — same  number  of  elements 

5.1.2  Record  assignments 

If  a record  variable  has  been  declared  with  a record  constraint,  the  variant  assigned  must 
have  a discriminant  value  prescribed  by  the  constraint. 

Examples; 

DISK_1,  DISK-2  PERIPHERAL  (UNIT  DISK); 

DISK-1  :«  (STATUS  OPEN,  UNITDISK,  CYLINDERS.  TRACK:  1); 

DISK-2  : “ DISK-  1 ; 

5.2  Allocation  Statements 

An  allocation  statement  specifies  the  dynamic  creation  of  a record  to  be  designated  by  an 
access  variable. 
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allocation-statement  : : = 

variable  ; = new  record -aggregate; 

| variable  :=  naw  typed_expression; 

Storage  for  a record  is  allocated  with  the  collection  associated  with  the  access  type.  The 
name  of  this  access  type  must  appear  explicitly  after  the  keyword  new  in  either  case.  The 
value  of  the  record  aggregate  or  typed  expression  is  assigned  to  the  new  record,  and  the 
access  variable  is  made  to  designate  the  new  record. 

Examples: 

ELEMENT  ;=  new  LIST-ITEM  (VALUE:  0,  SUCC:  none,  PRED:  none); 

DOUBLE  :=  new  PERSON  (ME.  all), 

5.3  Subprogram  Calls 

A subprogram  call  invokes  execution  of  a subprogram  body.  The  call  specifies  the  associa- 
tion of  any  actual  parameters  with  formal  parameters  of  the  subprogram  declaration.  An 
actual  parameter  is  either  a variable  or  an  expression. 

subprogram-call_statement  : : = subprogram-call; 

subprogram— call  : = subprogram-name 

((parameter-association  {.parameter-association})  ) 


parameter— association 
input—  asiocation 

input-association 

output-association 

access-association 


output- association 
[formal  —parameter 
(formal  parameter 
(formal  _paiameter 


I access-association 
: = ) expression 

= : ) variable 

*■-=  ] variable 


formal -parameter  : *»  identifier 

Actual  parameters  may  be  passed  in  positional  order  (positional  parameters)  or  by  explicitly 
naming  the  corresponding  formal  parameters  (named  parameters).  For  positional  para- 
meters, the  actual  parameter  corresponds  to  the  formal  parameter  with  the  same  position 
in  the  formal  parameter  list.  For  named  parameters,  the  corresponding  parameter  is  ex- 
plicitly given  in  the  call.  Named  parameters  may  be  given  in  any  order. 


Positional  parameters  and  named  parameters  may  be  used  concurrently  with  positional 
parameters  occuring  first  at  their  normal  position,  i.e.  once  a named  parameter  is  used  the 
rest  of  the  call  must  use  only  named  parameters. 


1 


3 

35 

| 

f 

I 


29 


Examples: 


RIGHT-SHIFT; 


SEARCH-STRING  (STRING,  CURRENT-POSITION,  NEW-POSITION); 


PLOT  (CURVE  :=  SINE, 
LOWER-BOUND 
UPPER-QOUND 


RE_ORDER_KEYS  (NUM_OF_ITEMS,  KEY-ARRAY  ==  RESULT-TABLE); 


5.3.1  Actual  parameter  associations 


There  arc  three  forms  for  specifying  actual  parameters. 


(a)  Input  parameter  association. 

The  corresponding  formal  parameter  must  have  the  mode  in,  and  acts  as  a local  con- 
stant whose  value  is  provided  by  the  actual  parameter  prior  to  execution  of  the  sub- 
program body. 


(b)  Output  parameter  association. 

The  corresponding  formal  parameter  must  have  the  mode  out,  and  acts  as  a local 
variable  whose  value  is  assigned  to  the  actual  parameter  upon  return  from  the  sub- 
program body. 


(c)  Access  parameter  association. 

The  corresponding  formal  parameter  must  have  the  mode  access.  Within  the  sub- 
program body,  the  formal  parameter  enables  read  and  write  access  to  the  corres- 
ponding actual  parameter. 


Constantness  for  the  in  mode  must  be  interpreted  transitively.  For  example,  the  elements 
of  an  input  array  parameter  may  not  be  updated,  and  an  input  parameter  may  not  be  up- 
dated by  calls  to  other  subprograms. 


5.3.2  Omission  of  actual  parameters 


An  input  parameter  may  be  omitted  from  the  list  of  actual  parameters  if  the  subprogram 
declaration  specifies  a default  value  for  the  corresponding  formal  parameter.  In  such  cases 
any  remaining  actual  parameters  must  be  named.  Similarly,  an  output  parameter  may  be 
omitted  if  the  value  returned  is  not  used  in  the  calling  program. 
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Example; 


i 


ACTIVATE;  procedure  (TASK 
AFTER 
DELAY 
PRIOR 


in  TASK-NAME; 
in  TASK-NAME  .= 
in  REAL  ; = 0E0; 


NO-TASK; 


in  BOOLEAN 


ACTIVATE  IX) 
ACTIVATE  IX, 
ACTIVATE  IX, 


AFTER  : = 
DELAY  : = 


Y); 

5EOMINUTF, 


PRIOR 


FALSE); 


rRUE); 


5.3.3  Restrictions  on  subprogram  calls 


The  type  of  each  actual  parameter  must  agree  with  that  of  the  corresponding  formal  para- 
meter. To  prevent  aliasing  (i.e.  multiple  access  paths  to  the  same  variable),  the  same  variable 
name  cannot  be  used  for  more  than  one  actual  output  or  access  parameter. 


5.4  Return  Statements 

A return  statement  terminates  execution  of  a subprogram  or  a path.  For  functions,  a return 
statement  must  include  an  expression  whose  value  is  the  result  of  the  function. 

return —Statement  : = return  (expression)  ; 

Examples; 

return; 

return  KEY-VALUE  (LAGT.  INDEX); 
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5.5  If  Statements 

An  if  statement  allows  the  selection  of  a statement  list  based  on  the  truth  value  of  one  or 
more  conditions. 

if_statement  : = 

if  condition  then  statement-list 
{elsif  condition  then  statement-list } 

(else  statement_list] 

end  if; 

condition  ; = 

expression  ( and  than  expression  ) 

| expression  i or  else  expression ) 

Execution  of  an  if  statement  results  in  evaluation  of  the  conditions  one  after  the  other 
(treating  a final  else  as  elsif  TRUE)  until  one  evaluates  to  true;  then  the  corresponding 
statement  list  is  executed.  If  none  of  the  conditions  evaluat"5  to  true,  none  of  the  state- 
ment lists  is  executed. 
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Examples: 


if  (MONTH 
MONTH 
DAY 
YEAR 
end  if; 


DECEMBER)  and  (DAY 
JANUARY; 

1. 

YEAR  + 1; 


- 31)  then 


% 

j 


if  INDENT  then 

CHECK_LEFT_MARGiN; 
LEFT_SHIFT, 
eltif  UNDENT  then 
RIGHT_SHIFT: 
else 


CARRIAGE-RETURN, 

CONTINUE-SCAN, 

end  if; 


5.5.1  Short  circuit  conditions 


A condition  may  appear  as  a sequence  of  boolean  expressions  separated  by  and  then.  In 
such  case,  evaluation  of  the  expressions  proceeds  from  left  to  right  until  one  evaluates 
to  false.  The  final  value,  true  or  false,  is  the  value  of  the  condition.  Similarly,  for  expres- 
sions separated  by  or  else,  evaluation  stops  as  soon  as  an  expression  evaluates  to  true. 

Examples: 

if  (NEXT  /=  none;  and  then  (NEXT.  AGE  < 18)  then 
MINOR  :=  TRUE, 
end  if; 


if  (I  = O)  or  else  (All)  - HIT-VALUE)  then 
return; 
end  if; 

5.6  Case  Statements 

A case  statement  allows  the  selection  of  a statement  list  based  on  the  value  of  an  expres- 
sion at  the  head  of  the  case  statement 

case_statement  : = 

care  expression  of  (alternative)  end  case; 

alternative  : = when  selection  «>  statement— list 
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Execution  of  a case  statement  results  in  execution  of  the  statement  list  whose  selection 
contains  the  value  of  the  expression.  A given  selection  value  may  appear  in  only  one  alter- 
native. Selection  values  must  be  provided  for  all  values  of  the  type  of  the  expression.  Note 
that  it  is  always  possible  to  constrain  an  expression  to  a given  subtype  or  to  use  the  selection 
others  to  cover  any  remaining  values. 

Examples: 

case  SENSOR  of 


when  ELEVATION  => 

when  AZIMUTH  => 

when  DISTANCE  => 

when  others  -> 

end  case; 

RECORD-ELEVATION  (SENSOR-VALUE); 
RECORD-AZIMUTH  (SENSOR-VALUE); 
RECORD-DISTANCE  (SENSOR-VALUE); 
null; 

case  TODAY  of 

when  MON  => 

when  FRI  => 

when  TUE.  .THU  => 
when  REST-DAY  => 

COMPUTE-INITIAL  BALANCE; 
COMPUTE-CLOSING-BALANCE, 
GENERATE-REPORT  (TODAY); 

null; 

end  case. 


case  BIN-NUMBER  ((I  mod  4)  + 1)  of 
when  1 =>  UPDATE_BIN  (1 ); 

when  2 =>  UPDATE_8IN  (2); 

when  3!4  -> 

EMPTY_BlN  (1); 

EMPTY-BIN  (21. 

end  case; 

5.7  Assertion  Statements 

An  assert  statement  introduces  an  assertion  that  must  hold  whenever  control  reaches  that 
point  in  the  program. 

assert-statement  : = assert  [condition] ; 

Examples: 

assert  (Y2  - YD  < EPSILON; 

assert  (INPUT-CHARACTER  is  "A"  . . " Z "). 

assert  [There  exists  an  I such  that  A(l)  > 0] , 

The  assertion  may  be  formulated  as  a condition  or  as  a comment.  The  condition  is  treated  as 
a comment  whenever  checking  of  assertions  is  suppressed.  Otherwise,  the  condition  is 
evaluated  and  an  exception  is  raised  if  the  condition  does  not  hold  (see  section  9). 
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5.8  Loop  Statements 
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A loop  statement  specifies  that  a statement  list  in  a basic  loop  is  to  be  executed  repeatedly. 

Execution  is  terminated  when  either  the  iteration  specification  of  the  loop  is  completed  or 
when  a loop  exit  statement  within  the  basic  loop  is  executed, 

loop_statement  : = ( iteration specification | basic_loop; 

basic-loop  : = loop  stattment_list  repeat 

itciation_speci<ication  : = 

while  condition  | until  condition 
I for  loop_paiameter  in  [reverse!  range-denotation 

loop_parameter  : : = identifier 

In  a loop  statement  with  a for  clause,  the  loop  parameter  is  implicitly  declared  as  a local 
each  execution  of  the  basic  loop.  The  loop  statement  is  terminated  if  the  while  expression 
is  false  or  the  until  expression  is  true. 

In  a loop  statement  with  a for  clause,  the  loop  parameter  is  implicitly  declared  as  a local 
variable  whose  type  is  that  of  the  elements  in  the  range  denotation.  On  successive  loop 
iterations,  the  loop  parameter  is  successively  assigned  values  from  the  specified  range.  The 
values  are  assigned  in  increasing  order  unless  the  keyword  reverse  is  present,  in  which  case 
the  values  are  assigned  in  decreasing  order.  Within  the  basic  loop,  the  loop  parameter  acts  as 
a constant  whose  value  may  not  be  changed. 

Examples: 

while  (BIO(I)  . PRICE  < CUT-OFF  . PRICE)  loop 
RECORD-BID  (BID(I)  . PRICE); 

I : = I * 1; 
repeat. 

until  BUFFER  II)  = loop 
I : = I + 1 ; 

repeat; 

for  I in  BUFFER' RANGE  loop 
BUFFER  (li  : = BLANK, 

SQUARE  (I)  : = 1*1; 

repeat;  | 
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5.9  Loop  Exit  Statements 

A loop  exit  statement  causes  explicit  termination  of  a loop.  It  may  contain  a condition,  in 
which  case  termination  occurs  only  if  its  value  is  true. 

Ioop_exit_statement  ; : = exit  (when  condition]; 

A loop  exit  statement  may  only  appear  in  a basic  loop. 

Examples; 

for  I in  1 . . MAXIMUM_NUM_ITEMS  loop 

GET_NEW_1TEM  (NEW-ITEM); 

MERGE-ITEM  (NEW-ITEM,  STORAGE-FILE); 

exit  when  (NEW_ITEM  = TERMINAI ITEM). 

repeat; 

5.10  Rlocks 

A block  introduces  a new  declarative  part  for  a list  of  statements.  Execution  of  a block 
results  in  elaboration  of  the  declarative  part  followed  by  execution  of  the  statement  list. 

block  : = 

dec'are  declarative— part  begin  statement-list  end; 

Identifiers  declared  in  a declarative  part  follow  the  same  scope  rules  as  those  for  sub- 
programs and  definition  modules,  as  described  in  later  sections. 

5.11  Goto  Statements 

The  execution  of  a goto  statement  results  in  an  explicit  transfer  of  control  to  another 
statement 

golG_statement  ; = goto  identifier. 

The  statement  to  which  control  is  transfered  must  be  labeled  with  the  corresponding  identi- 
fier. The  designated  statement  must  be  within  the  same  local  scope  as  the  goto  statement. 
Transfer  of  control  into  a compound  statement  is  not  allowed. 

Example; 


< < COMPARE  >>- 

if  A ( I ) ELEMENT  then 
if  LEFT  (II  , = O then 
I = LEFT  (li, 
goto  COMPARE, 

end  if, 

end  if; 
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6.  SUBPROGRAMS 
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This  section  and  the  following  sections  describe  the  rules  for  defining  higher  level  program 
units.  These  include  procedure  and  function  subprograms,  definition  modules,  parallel 
paths,  and  exception  subprograms.  Separate  compilation  of  program  units  and  generic 
program  units  are  discussed  in  the  section  on  overall  program  structure. 

A subprogram  is  an  executable  program  unit  that  is  invoked  by  a subprogram  call 
statement.  Its  definition  is  given  in  two  parts:  a subprogram  declaration  defining  its  calling 
conventions,  and  a subprogram  body  defining  its  execution. 

6.1  Subprogram  Declarations 

A subprogram  declaration  specifies  the  name  of  a subprogram,  its  nature,  its  formal  param- 
eters, the  type  of  any  returned  value,  and,  possibly,  a translation  mode  indicating  whether 
it  is  separately  compiled  or  generic, 

subprogram-declaration 

namcr  [translation_modcl  subprogram-nature-  formal-part; 

subprogram —nature  ::*=  procedure  I function  j exception 
formal  pari  : - 

[(parameter-definition  {,  parameter. .definition  ’ )]  [return  type) 
paramoter_definuion 

identifier  —list:  mode  type  [:=  expression) 
mode  [ini  I out  | access 

namer  identifier  | character -String 

translation  ..mule  ::*=  separate  i generic,  clause 
Examples: 

TRAVERSE-TREE  procedure: 

RIGHT-INDENT  : procedure  (MARGIN:  out  LINE-POSITION); 

COMMON -PRIME  : function  (N,M:  INTEGER)  return  INTEGER; 

6.2  Formal  I'aranrjters 

The  formal  parameters  of  a subprogram  arc  considered  local  to  the  subprogram.  A param- 
eter may  have  one  of  three  modes. 
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in  The  parameter  acts  as  a local  constant  whose  value  is  set  equal  to  that  of  the  cor- 
responding actual  parameter  upon  call  to  the  subprogram. 

out  The  parameter  acts  as  a local  variable  whose  value  is  assigned  to  the  corresponding 
actual  parameter  upon  return  from  the  procedure. 

access  The  parameter  acts  as  a variable  and  may  be  used  for  read  and  write  access  to  the 
corresponding  actual  parameter. 

If  no  mode  is  explicitly  given,  the  mode  in  is  assumed. 

For  in  parameters,  the  parameter  definition  may  also  include  a specification  of  an  expres- 
sion that  is  implicitly  assigned  to  the  parameter  if  no  explicit  value  is  given  in  the  call. 

This  expression  may  either  be  an  expression  computable  at  translation  time  or  a variable. 

Examples: 


PRINT-HEADER.  procedure  (PAGES 

HEADER 

CENTER 


in  INTEGER; 

in  LINE  :=  BLANKLINE, 

in  BOOLEAN  :=  TRUE); 


ACTIVATE: 


procedure  (TASK 
AFTER 
OE  LAY 
PRIOR 


in  TASK-NAME; 
in  TASK-  NAME  .=  NO. -TASK, 
in  REAL  :=  060; 
in  800LEAN  :=  FALSE); 


6.3  Subprogram  Bodies 


A subprogram  bo  iy  specifies  the  execution  of  a subprogram, 
subprogram  _body  ::= 

[inline)  subprogram. .nature  namer  formal_oarl ; 
declaraiive_part  (begin  statement -list]  end; 

Upon  each  call  to  a subprogram,  the  correspondence  between  actual  and  formal  param- 
eters is  established  (see  section  5.3),  the  declarative  part  is  elaborated,  and  the  statements 
of  the  body  are  executed.  Upon  successful  completion  of  the  body,  return  is  made  to  the 
caller. 

Subprogram  bodies  marked  as  inline  are  expanded  in  line  at  each  call.  The  text  of  each 
actual  parameter  replaces  the  corresponding  formal  parameter.  Identifiers  other  than  actual 
parameters  are  interpreted  in  the  scope  of  the  subprogram  declaration  Thus  the  meaning  of 
a subprogram  is  not  changed  by  the  prefix  inline.  Inline  subprograms  cannot  he  separately 
compiled. 
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If  a subprogram  body  appears  in  the  same  declarative  part  as  its  declaration  and  is  not 
referenced  in  previous  subprograms,  the  subpiogram  declaration  may  be  omitted.  In  such  a 
case  the  body  acts  as  a substitute  for  the  subprogram  declaration,  A subprogram  body  with- 
out a statement  list  is  used  when  the  statement  list  is  separately  compiled  (see  section 
11.3). 

Example: 

procedure  PUSH  <E.  in  ELEMENT_TYPE;  S:  acceti  STACK); 
begin 

if  S, INDEX  SIZE  then 
raise  STACK-OVERFLOW; 

else 

S. INDEX  :=  S.  INDEX  + 1. 

S.SPACEfS. INDEX)  :*■  E; 
end  if, 

end  (PUSH)  ; 

6.4  Function  Subprograms 

A function  is  a subprogram  that  computes  a value.  A function  declaration  may  only  have  in 
parameters  and  contains  a return  clause  specifying  the  type  of  its  returned  value,  The  state- 
ment list  in  the  function  body  must  include  one  or  more  return  statements  specifying  the 
returned  value. 

Side  effects  to  variables  accessible  at  the  function  call  are  not  allowed.  In  particular,  vari- 
ables that  are  global  to  the  function  body  may  not  be  updated  in  the  function  body. 

If  a function  parameter  belongs  to  an  access  type,  the  parameter  must  be  viewed  as  pro- 
viding access  to  the  complete  collection  of  dynamic  records.  As  a consequence,  within  the 
function  body  there  can  be  no  alteration  to  any  component  of  a record  designated  by  an 
access  variable. 

Example: 

function  DOT_PRODUCT  (X,Y:  REAL-VECTOR)  return  REAL, 

SUM:  REAL  :=  OEO; 

begin 

aiiert  (X'FIRST  = Y'FIHST); 
auert  (X'LAST  - y'lAST)  ; 
for  I in  X’RANGE  loop 

SUM  = SUM  + X(I)*Y(I|  ; 
repeat, 
return  SUM; 

end  | OOT ..PRODUCT)  ; 


H 

a 

-5 

i 

1 


f 

3 

m 

m 

f 


UL 


38 


6,&  Overloading 


& I 
\ i 


i * 


[ ‘ 

i 

h 

■ ^ 


f 

{ 


Functions  and  procedures  of  a given  name  may  have  multiple  definitions,  each  having 
parameters  of  differing  types.  In  these  cases  the  redefinition  of  a named  function  or 
procedure  does  not  hide  any  previous  definition.  On  subprogram  calls,  the  actual  definition 
used  it  that  whose  formal  parameter  types  match  those  of  the  actual  parameters. 


6.5.1  Overloading  of  operators 

A function  named  by  a character  6tring  is  used  to  define  an  additional  meaning  for  an  opera- 
tor. The  overloading  of  operators  is  identical  to  overloading  of  functions  and  procedures, 
except  that  the  character  siring  must  t>e  one  of  the  operators  in  the  language.  Overloading 
applies  to  both  unary  and  binary  operators.  Overloading  does  not  change  the  precedence  of 
an  operator,  Overloading  of  the  concatenation  operator  & is  not  allowed. 

Examples: 

function  (X,Y;  MATRIX)  return  MATRIX; 
function  (X.Y:  VECTOR)  return  VECTOR, 

6.6  Code  insertions 

A machine  code  insertion  can  lx1  achieved  by  a call  to  an  inline  procedure  whose  body  only 
contains  inline  statements. 

inline-statement  inline  record-aggregate; 

Each  machine  instruction  appears  as  an  inline  record  aggregate  or  a record  type  defining 
the  corresponding  instruction.  Such  record  definitions  will  generally  be  available  In  a library' 
definition  module  for  each  machine,  A procedure  that  contains  an  inline  statement  must 
contain  only  inline  statements.  Insertions  of  code  written  in  other  programming  languages 
must  Ik-  bracketed  by  special  pragmats, 

Examples: 

M:  MA5K, 

Inline  procedure  SET-MASK; 

import  INSTRUCT  ION -360; 
begin 

Inline  Sl-fORMAT  (CODE:  SSM,  B:  M'BASE,  D:  M'DISP), 

end, 

inline  procedure  ROOT, 
begin 

pregmat  FORTRAN  BEGIN 
IFOHTHAN  text ) 
pregmat  FORTRAN  END 

ond; 
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7.  DEFINITION  MODULES  AND  SCOPE  RULES 
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Definition  modules  allow  the  specification  of  groups  of  logically  related  entities.  In  their 
simplest  form  they  can  represent  pools  of  common  data  and  type  declarations. 

In  addition,  definition  modules  can  be  used  to  describe  package*  of  related  subprograms  and 
encapsulated  data  types,  whose  inner  workings  are  concealed  from  their  users, 

Scope  rules,  the  rules  defining  the  entities  that  are  visible  at  a given  program  point,  are 
explained  in  this  section  for  definition  modules  and  other  program  units. 

7.1  Specification  of  Definition  Modules 

The  specification  of  a definition  module  generally  includes  its  declaration  and  the  specifica- 
tion of  a definition  module  body.  Its  declaration  may  be  omitted  unless  it  contains  a trans- 
lation mode  specifying  the  module  as  separately  compiled  or  generic. 

definition-declaration  : * 

Identifier:  | tf jn»lation_mode ] definition; 

definition^moduls  _body  ::  - 

definition  idontifier;  declsrstiv«_psrt 
I private  declsrative_part) 

I algorithm  declarative_p«rt| 

I begin  statement  _ll»t|  end; 

A variable  declared  in  any  of  these  declarative  parts  is  said  to  be  "own”  to  the  definition 
module.  Own  variables  remain  allocated  for  the  life  time  of  the  definition  module. 
Elaboration  of  the  declaration  of  the  definition  module  results  in  the  allocation  of  its  own 
variables,  the  assignment  of  any  initial  values,  and  the  execution  of  the  statement  list 
initializing  the  definition  module. 

Variables  that  are  declared  within  local  subprograms  of  the  definition  module  are  not 
own.  Hence  they  do  not  retain  their  values  from  one  call  to  the  next, 

Example*  of  definition  declarations: 

PLOTTING  DATA  : definition, 

TABLE  MANAGEft  definition, 

l_0_  PACKAGE  dflflnltion, 


7 2 The  Viiible  Part 


The  first  declarative  part  of  a definition  module  is  called  its  visible  part.  The  entities 
declared  in  the  visible  part  are  accessible  to  program  units  that  import  the  definition  name. 
A definition  module  containing  only  a visible  part  may  be  used  to  represent  a group  of 
common  variables  or  a common  pool  of  data  and  types. 

Example  of  group  of  common  variables: 

definition  PLOTTING-DATA; 

PEN_UP  BOOLEAN: 

CONVERSION-FACTOR:  REAL: 

X_OF FSP.T,  Y—OFFSET, 

X-MIN,  X-MAX, 

V-MIN,  Y_MAX:  scaled  1//100  range  (0  ,.  30); 

GRID-VALUE:  array  (1  ..  600)  of 
record 

X-COORD:  REAL; 

Y-COORD:  REAL; 
and  record; 

end  (PLOTTING— DATA]  ; 


Example  of  common  pool  of  data  items  and  types: 


definition  WORK  DA  i A; 

type  OAY_LENGTH  = INTEGER  ran««  10  . . 24), 

typ*  DAY  ■ (MON  I TUE  I WED  1 THU  I FRI  I SAT  I SUN); 


WORK-HOURS 

NORMAL-HOURS 

and  (WORK-DATA) , 
7.3  Algorithm  Part 


array  (DAY)  of  DAY-LENGTH; 
conitant  array  (DAY)  of  DAY-LENGTH  - 

(MON..  THU:  8,  FRI:  7,  SAT  I SUN:  0); 


The  visible  part  of  a definition  may  contain  subprogram  or  path  declarations.  In  such  coses, 
their  bodies  may  be  grouped  in  an  algorithm  part,  the  declarative  part  after  the  keyword 
algorithm.  The  algorithm  part  may  also  include  local  declarations  ami  local  program  units 
needed  by  these  bodies, 
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In  contrast  to  the  entities  declared  in  the  visible  part,  the  entities  declared  in  the  algorithm 
part  are  not  accessible  outside  the  definition  module.  As  a consequence,  a definition  module 
with  an  algorithm  part  can  be  used  for  the  construction  of  a package,  where  the  logical  oper- 
ations accessible  to  the  user  are  clearly  isolated  from  the  hidden  internal  entities, 

Example  of  a package: 

definition  RATIONAL-NUMBERS; 
type  RATIONAL  = 
record 

NUMERATOR  : INTEGER; 

DENOMINATOR:  (1  . . INTEGER'lAST); 

end  record; 

EC1UIV  function  (X,  V , RATIONAL)  return  BOOLEAN; 

ADD  function  (X,  V : RATIONAL)  return  RATIONAL, 

MULT  : function  (X,  Y : RATIONAL)  return  RATIONAL; 

algorithm 

procedure  SAME_DENOMINATOR(X,Y:  tccetl  RATIONAL); 

begin 

(reduces  X <ind  Y to  the  same  denominator) 

end; 

function  EQUIV  (X,Y:  RATIONAL)  return  BOOLEAN, 

U,V:  RATIONAL; 
begin 

U :*  X; 

V :=  Y; 

SAME-DENOMINATOR  (U.V), 

return  <U. NUMERATOR  = V. NUMERATOR); 

end; 

function  ADD  . . 
function  MULT  . . 

end; 

7.4  Private  Part 

The  structural  details  of  some  declared  types  may  be  irrelevant  to  their  logical  use  outside 
a definition  module.  This  may  be  accomplished  by  stating  in  the  visible  part  that  a type  is 
private.  Types  declared  private  in  the  visible  part  must,  be  rcdeclared  :n  full  in  the  private 
part  of  the  definition  module. 
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For  a private  type,  the  only  information  available  for  external  program  units  importing  the 
definition  module  is  the  private  type  name.  As  a consequence,  the  only  external  operations 
permitted  on  variables  of  a private  type  are  assignment  and  comparison  of  elements  for 
equality  or  inequality. 

If  a type  is  declared  as  private  parameter,  not  even  assignment  and  comparison  are  per- 
mitted. Hence  variables  of  such  types  may  only  be  passed  as  parameters  to  subprograms 
declared  in  the  visible  part  of  the  same  definition  module. 

A constant  value  of  a private  type  may  be  declared  as  a deferred  constant.  Its  actual  value 
must  be  specified  in  the  private  part  by  redeclaring  the  constant  in  full. 

In  the  example  below,  an  externa!  subprogram  importing  I_0_.  PACKAGE  may  obtain  a file 
name  by  calling  ASSIGN  and  later  use  it  in  calls  to  READ  and  WRITE.  Thus,  outside  the 
definition  module,  a file  name  obtained  from  ASSIGN  acts  as  a kind  of  password.  Its  in- 
ternal properties  (e.g.  being  a numeric  value)  are  not  known,  and  no  other  operations 
(such  as  addition)  may  be  performed  on  a file  name. 

In  general,  private  types  may  be  used  to  define  encapsulated  data  types.  An  example  is  given 
in  Section  11.7. 

Example: 

definition  l_0_PACKAGE, 

type  FILE_NAME  “ private. 

NO_ FILE  constant  FILE-NAME, 

ASSIGN  procedure  (F:  out  FILE  -NAME). 

READ  ; procedure  (ELEM:  out  INTEGER,  F:  in  FILE-NAME); 

WRITE  . procedure  (ELEM:  in  INTEGE R;  F : in  FI LE-NAME); 

private 

type  FILE-NAME  = INTEGER  range  (0  . . 50), 

NO.  FILE:  constant  F I LE ..NAME  - 0, 

algorithm 

type  FILE-DESCRIPTOR  ' record  . . end  record; 

DIRECTORY:  array  ( F I LE -NAME)  of  FILE-DESCRIPTOR; 

procedure  ASSIGN 
procedure  WRITE  . . . 
procedure  READ  . . 

end, 
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7.5  Example:  A Table  Management  Package 

The  following  example  illustrates  the  use  of  definition  modules  in  providing  high  level  pro- 
cedures with  a simple  interface  to  the  user. 

definition  TABLE-MANAGER; 
type  ITEM  * 
record 

ORDER-NUM  : INTEGER; 

ITEM-CODE  . INTEGER; 

ITEM-TYPE  : CHARACTER; 

QUANTITY  : INTEGER; 
end  record, 

NULI ITEM:  constant  ITEM  = 

(ORDER-NUM  0.  ITEM-CODE:  0.  ITEM-TYPE:  " ".QUANTITY:  0): 

INSERT  procedure  (NEW-ITEM  : in  ITEM); 

RETRIEVE  procedure  ( F I RST_ ITEM  : out  ITEM); 

TABLE-FULL  exception. 

algorithm 

SIZE,  constant  INTEGER  - 2000, 

subtype  INDEX  = INTEGER  range  (0  . SIZE), 


type  INTERNAL-ITEM 
record 


CONTENT 
SUCC 
PRED 
end  record, 


ITEM; 

INDEX; 

INDEX. 


TABLE:  array  (INDEX)  of  INTERNAL-ITEM; 

FIRST  ..BUSY_ITEM:  INDEX  0; 

FIRST-FREE -ITEM:  INDEX  :=  1; 

function  FREE-LIST-EMPTY  return  BOOLEAN;  . . 
function  BUSY_LIST_EMPTY  return  BOOLEAN;  . . 

procedure  EXCHANGE  (FROM:  in  INDEX;  TO  in  INDEX). 

procedure  INSERT  (NEW.. ITEM;  in  ITEM), 
begin 

if  FREE  -LIST_EMPTY  then 
raise  TABLE-FULL, 

end  if, 

iremauimg  code  for  INSERT) 

end; 

procedure  RETRIEVE  . . . 
exception  TABLE. .FULL  . . 

begin 

(code  (or  intialization  of  the  table  linkagesj 
endiTABLE  MANAGER).  ,, 


wm 


The  problem  is  to  define  a table  management  package  for  inserting  and  retrieving  items.  The 
items  are  inserted  into  fhe  table  as  they  are  posted.  Each  posted  item  has  an  order  number. 
The  items  are  retrieved  according  to  their  order  number,  where  the  item  with  the  lowest 
order  number  is  retrieved  first. 

From  the  user’s  point  of  view,  the  package  is  quite  simple.  There  is  a type  called  ITEM 
designating  table  items,  a procedure  INSERT  for  posting  items,  and  a procedure  RETRIEVE 
for  obtaining  the  item  with  the  lowest  order  number.  There  is  a special  item  Nl'LLJTEM 
that  is  returned  when  the  table  is  empty,  and  as  exception  TABLE-FULL  that  may  be 
raised  by  INSERT. 

The  details  of  implementing  such  packages  can  be  quite  complex,  in  this  case  involving  a 
two  way  linked  table  of  internal  item.'.  A local  housekeeping  procedure  EXCHANGE  is 
used  to  move  an  internal  item  between  the  busy  and  the  free  lists.  The  initial  table  linkages 
ait-  established  by  the  initialization  part. 

A sketch  of  a definition  module  implementing  such  a package  is  given  above.  Only  the 
visible  part  of  the  package  is  exposed  to  the  user. 
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7.6  Scope  Rules 

A scope  denotes  a region  of  text  in  which  an  identifier  is  known  with  asingie  meaning.  Sub- 
programs. blocks,  paths,  and  definition  modules  introduce  new  scopes.  Local  scopes  are  also 
defined  by  for  loops,  record  types,  and  variant  parts. 


i i 


An  identifier  of  an  outer  scope  may  be  redeelared  in  a given  inner  declarative  part  unless  it  is 
used  in  that  declarative  part  or  unless  it  is  a type  name.  The  inner  redeclaration  has  the 
effect  of  hiding  the  outer  declaration.  Overloading,  i.e.  redeclaration  of  a subprogram  with 
different  parameter  types,  is  possible  even  within  the  same  declarative  part  and  does  not 
hide  previous  subprogram  definitions  (see  section  6.5). 


The  rules  defining  the  meaning  of  identifiers  within  a given  scope  depend  on  the  presence 
(or  absence)  of  an  import  clause  in  the  corresponding  declarative  part. 


import.,  clause  ::  import  none,  i import  ionly]  item  (.itemj, 
item  identifier  ( (r**naming_clause  • ,renaming_clausc;  ) ) j 
i uiiuming—clausc  new  .name  --  old_name 


A 
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8.  PARALLEL  PROCESSING 


This  section  specifies  the  constructs  for  allowing  control  paths  to  operate  in  parallel.  The 
control  paths  may  be  implemented  on  multiple  processors  or  with  interleaved  execution  on 
a single  processor. 

8.1  Path  Declarations 

A path  declaration  introduces  the  names  of  one  or  more  parallel  paths  and  specifies  the 
information  needed  to  communicate  with  other  paths.  It  may  also  contain  a translation 
mode  specifying  whether  the  path  is  separately  compiled  or  generic  Communication 
between  paths  is  handled  by  associating  boxes  with  each  path. 

path_decl3rdilvn  . : = 

identification:  [translado.i_mode]  path  box_part; 
box-part  ::=  [(box_definition  i . box-definition  }) ] 
box_defmition  ::  = 

identification:  box_mode  box  (type)  jinterrypt-cljuse) 
box_mode  .:=  ir.  1 Out 


identification  - 

identifier  ((range_denotation  {,  range-denotation  })  ] 


A box  may  be  specified  with  a type  and  a mode  in  or  out,  which  indicates  that  the  box  is 
used  for  receiving  data  from  cither  paths  or  for  sending  data  to  other  patiis.  If  no  type  is 
specified  for  a box,  it  is  used  only  for  synchronization  and  must  have  the  mode  in.  The 
interrupt  clause  will  be  described  in  section  8.7. 


A path  or  box  identification  may  specify  a family  of  identical  paths  or  boxes,  each  denoted 
by  one  or  more  indices  from  a specified  range. 

Examples: 


path  (LINE  in  box  LINE-IMAGE); 
path  (CHAR:  in  box  CHARACTER); 


KEYBOARD_DRIVER 

DECODER 

CONTROLLER 

SCHEDULER 

TERMINAL'!  N) 


path!  ST  ART  _READ 
START_WRI  TE 
STOP_REAO 
STOP-WRITE 

path!  STARTd  31 
STOP 

path  (MESSAGE 
RESPONSE 


: in  box; 
in  box, 
in  box, 

: in  box); 

in  box, 

: in  box); 

: in  box  LINE-IMAGE; 

: out  box  LINE_'MAGE), 
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8.2  Path  Bodies 


l-  j 


A path  body  describes  the  execution  of  a path.  The  body  will  generally  contain  statements 
that  control  the  execution  of  other  paths.  Within  the  path  body,  the  out  boxes  of  a given 
type  behave  like  local  variables,  and  the  in  boxes  of  a given  type  behave  like  unassignable 
local  variables. 

path _body 

path  path_narne  box_part, 
declarative_part  begin  statement-list  end; 

Example: 

path  KEYBOARD— DRIVER  (LINE:  in  box  LINE-IMAGE); 
begin 
loop 

receive  LINE, 
for  I in  1 . 80  loop 

connect  DECODER  (CHAR  : = LINE(1)  ): 
exit  when  LINE(I)  = 
repeat,' 
repeat. 

end  (KEYBOARD-DRiVERl 
8.3  Synchronization  Statements 

Synchronization  statements  specify  the  communication  between  paths. 

synchronization-statement  ::=  do_mner_ paths_statement 
I local -request- statement  | connect— statement 

A do  inner  paths  statement  initiates  execution  of  one  or  more  paths.  A local  path  request 
specifies  that  a local  box  in  the  path  is  ready  for  connection  from  another  path.  A connect 
statement  specifies  that  the  prth  is  ready  to  connect  with  a box  in  another  path. 

A rendezvous  is  achieved  when  a path  is  ready  for  a connection  to  one  of  its  local  boxes  and 
when  another  path  is  ready  to  connect  to  the  same  box.  Whenever  a rendezvous  occurs,  any 
specified  data  transfer  takes  place,  and  both  the  local  path  and  the  connecting  path  continue 
execution. 

8.3.1  Initiating  paths 

The  execution  of  paths  is  initiated  with  a do  inner  paths  statements. 
do—inner_patliS— statement  ::=  inner; 
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When  control  reaches  the  statement,  the  path  declarations  of  the  local  declarative  part  are 
elaborated,  and  ail  declared  paths  may  begin  execution.  Execution  at  the  inner  statement 
is  suspended  until  all  inner  paths  have  completed  their  execution. 


8.3.2  Local  request  statements 

A local  path  request  allows  for  local  synchronization  and  possible  data  transmission. 

locai_request_$tatement  local_request_r-!jase; 

local-request  _ciause  send  box-denotation 

i receive  box-denotation  I delay  expression 

box_denotation  ::=  box— name!  (expression  ■ . .expiession  } )] 

A send  or  receive  request  must  belong  to  the  statement  list  of  the  path  owning  the  denoted 
boxes.  A receive  request  can  only  be  associated  with  an  in  box;  a send  request  can  only  be 
associated  with  an  out  box. 

For  a box  denotation  specifying  a family  of  boxes,  the  expressions  denote  index  values  for 
one  member  of  the  family.  Delay  requests  will  be  described  in  section  8.6. 
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8.3.3  Connect  statements 

A connect  statement  specifies  that  a path  is  ready  to  connect  with  a box  in  another  path. 


connect_statement 

connect  path. .denotation  (bcx_denotation  ( = expression]  ), 
connect  path-denotation  (box_denotation  ( = : variablej'; 


path_dtnotation  path_nanne  1 (expression]  .expression  1 1 


An  expression  or  variable  is  given  after  a box  denotation  to  denote  a transfer  of  data.  The 
type  of  the  expression  or  variable  must  be  identical  to  that  of  the  box  denotation.  The 
specified  box  must  belong  to  the  specified  path. 


For  a path  denotation  specifying  a family  of  paths,  the  expressions  specify  the  index  values 
for  one  member  of  the  path  family. 


i 


49 


8.3.4  Rendezvous  of  local  requests  with  connect  statements 

There  are  three  rendezvous  possibilities- 

(1)  If  the  box  has  not  been  declared  with  a type  (and  thus  has  the  mode  in),  the  local 
request  must  be  a receive  request  and  the  corresponding  connect  statement  must  only 
specify  the  box. 

(2)  If  the  box  has  been  declared  witli  a type  and  has  the  mode  in,  the  local  request  must 
be  a receive  request  and  the  corresponding  connect  statement  must  specify  an  expres- 
sion value  for  assignment  to  the  box. 

(3)  If  the  box  has  been  declared  with  a type  and  has  the  mode  out,  the  local  request  must 
he  a send  request  and  the  corresponding  connect  statement  must  specify  a variable  to 
which  the  value  in  the  box  is  assigned. 


In  each  case,  a rendezvous  results  in  a synchronization  of  path  execution.  In  the  second  and 
third  cases  a rendezvous  also  results  in  the  transfer  of  data. 

4 . 

If  a send  or  receive  request  is  issued  before  a corresponding  connect  statement,  execution  of 
the  sending  or  receiving  path  is  suspended  until  a corresponding  connect  statement  is  issued 
Similarly,  if  a connect  statement  is  issued  before  a corresponding  send  or  receive  request, 
the  connecting  path  is  suspended. 

There  may  be  several  connecting  paths  waiting  for  rendezvous  on  a given  box.  In  this  case  r- 

the  first  issued  connect  statement  is  used  for  the  rendezvous.  The  remaining  connect  state-  h 

incuts  will  be  processed  on  a first  in,  first  out  basis  by  subsequent  local  requests  on  the  same 

box.  t 

i 

i 

Examples  of  send  or  receive  requests:  J 

1 1 ) receive  STOF,  J 

£ 

\2)  receive  LINE,  | 

k 

i3i  send  RESPONSE,  t 

s 

Examples  of  associated  connect  statements  in  other  paths. 

1 1 ) connect  SCHEDULER  1ST  OP);  i 

\2 1 connect  KEYBOARD- DRIVER  (LINE  - NEW_LlKiE),  I 

(3)  connect  TERMINAL!!  ((RESPONSE  ANSWER).  I 
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8.4  Select  Statements 


A select  statement  allows  a choice  of  one  or  more  statement  lists  based  on  their  corres- 
ponding when  conditions  and  local  request  clauses. 

select . .statement  ::  = 

lelect  selected-box  ;!selected_box  ; of 

•when  [condition)  local  ..request -Clause  =>  statement  I i st  } 

end  telect. 

selected-box  box —denotation  | mu!tipEj_box_seleclion 

All  boxes  mentioned  in  the  list  of  selected  boxes  must  be  different.  Each  of  these  boxes 
must  appear  in  exactly  one  of  the  local  request  clauses.  The  conditions  must  only  contain 
variables  that  are  local  to  the  path. 

A local  request  clause  is  said  to  be  open  if  its  corresponding  when  condition  is  true,  and 
closed  otherwise.  A local  request  clause  with  no  condition  is  considered  open. 

Execution  of  a select  statement  proceeds  as  follows: 

tai  All  when  conditions  are  evaluated  to  determine  which  local  request  clauses  are  open. 

(hi  If  there  arc  open  clauses,  the  select  statement  achieves  a rendezvous  when  any  one  of 
its  local  request  clauses  is  matched  by  a connect  statement  issued  from  another  path. 
When  a rendezvous  is  achieved,  the  statement  list  associated  with  the  corresponding 
local  request  clause  is  executed. 

|c)  If  there  are  no  open  clauses,  the  select  statement  has  no  effect. 

In  general,  several  local  path  boxes  may  have  been  connected  before  a select  statement  is 
encountered  As  a result  several  local  request  clauses  may  be  matched  with  connects.  In  th is 
case,  execution  of  a select  sti'temeiii  results  m l non-detcrmimstically ) executing  any  one  of 
the  mulched  select  options. 

Example: 

path  COMT ROl.l  EH  ( START  „ READ  inbox 
START  .WRITE  inbox 
STOP.  READ  inbox; 

ST  UP  _VVH  HE  : in  box  I 
R t AU  t MS  I M T E 0 L R 0 
begin 

loop 

select  ST  AR  1 READ  1 START  WRITE  1 STOP-READ  of 
when  R f AUERS  0 receive  START  _ WRITE  - 
receive  ST  OP -WRITE  , 

when  receive  ST  A R T READ  - ■ 

HEADERS  READERS  * 1. 

when  receive  STOP  HEAD  - 

Ilf  AUERS  READERS  1. 

entl  select, 
repeal. 


end. 
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8.4.1  Multiple  box  selections 


i 


A multiple  box  selection  specifies  a range  of  boxes  in  a given  indexed  box  family. 

multiple-box —selection  = 

box_name  (box_ index  { ,box_ index }) 

box-index  ::=  all  identifie'in  range-denotation 

An  identifier  of  a multiple  box  selection  may  only  appear  in  the  when  clause  whose  local 
request  clause  mentions  the  box  family  name.  This  when  clause  has  the  same  effect  as  the 
set  of  when  clauses  obtained  by  substitution  of  all  values  of  the  range  to  the  identifier.  For 
example  the  select  statement 

select  B (all  I in  U . . V)  of 

when  C(l ) receive  B(l)=.>  S(  1 1; 
end  select 

has  the  oarne  moaning  as  the  following  expanded  select  statement: 

select  B ( U)  ! . . ' (B (VI  of 

when  C(U ) receive  B(U)  =>S(U); 

when  CIV)  receive  B(V)  =>  St V ) ; 

end  select. 

8.5  Example  of  Parallel  Processing 

The  following  example  defines  a buffering  path  to  smooth  variations  in  the  speed  of  output 
between  a producing  process  and  the  speed  of  input  to  some  consuming  process.  For 
instance,  the  path  for  the  producing  process  may  contain: 

loop 

GET  (CHAR.  DEVICE  :=  UNIT_A); 
connect  BUFFERING  (IN-CHAR  :=  CHAR), 
exit  when  (CHAR  ■-=  EN D_OF _TRANSM ISSION) : 
repeat. 

and  the  path  for  the  consuming  process  may  contain: 
loop 

connect  BUFFERING  (FETCH); 

connect  BUFFERING  (OUT_CHAR  =:  CHAR); 

PUT  (CHAR,  DEVICE  :=  UNIT_B); 
exit  when  (CHAR  = END_OF_ TRANSMISSION); 
repeat; 


i 

I 
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The  buffering  path  contains  an  internal  buffer  of  characters.  The  characters  are  processed 
in  a round  robin  fashion.  The  buffer  has  two  indices,  an  IN-.INDEX  denoting  the  space 
for  the  next  input  character,  and  an  OUT_INDEX  denoting  the  space  for  the  next  output 
character. 


Example: 

path  BUFFERING  (FETCH  : in  box; 

IN-CHAR  . in  box  CHARACTER, 
OUT-CHAR  : out  box  CHARACTER); 

BUFFER  _SIZE  conrtant  = 100; 

type  BUFFER-INDEX  = (1  . BUFFER-SIZE); 

BUFFER:  array  (BUFFER-INDEX)  of  CHARACTER; 

IN-INDEX.  OUT-INDEX:  BUFFER-INDEX  :=  1; 
COUNT:  (0  BUFFER  .SIZE)  0, 


begin  j 

loop 

telect  IN-CHAR  I FETCH  of  '] 

when  COUNT  < BUFFER-SIZE  roceive  IN-CHAR  i 

BUFFER(IN-INDEX)  : IN-CHAR; 

IN  INDEX  :=  (IN  -INDEX  mod  BUFFER-SIZE)  + 1;  ] 

COUNT  COUNT  + 1;  j 

wher,  COUNT  >0  receive  FETCH  => 

OUT.  CHAR  :=  BUFF  E R(OUT_l  NDE  X); 

OUT.. INDEX  (OUT- INDEX  mod  BUFF E R -SIZE)  + 1; 

COUNT  COUNT  - 1;  j 

send  OUT-CHAR, 
end  telect 
repeat; 

end  ;BUFFERING!  ; 


8.6  Delay  Requests 

A delay  clause  is  implicitly  associated  with  a “box"  linked  to  the  system  dock.  The  ex- 
pression in  the  delay  clause  specifies  an  interval  of  lime,  after  which  an  implicit  path  issues 
a connect  statement  to  the  "box".  As  a result,  the  path  with  the  delay  clause  is  suspended 
for  the  designated  time  interval. 

For  select  statements  with  a delay  clause,  another  box  in  the  list  of  select  options  may  he 
connected  during  tin-  delay  interval.  If  this  occurs,  the  delay  is  cancelled  and  the  connected 
select  option  is  processed. 


53 


m 

r\ 


f 

I 


r 

i 


All  real  time  values  may  he  expressed  in  terms  of  translation  time  constants  defined  in  a 
standard  library  module  for  the  particular  object  machine.  Those  values  are  given  in  the 
basic  time  unit  of  the  clock.  Such  constants  will  include  declarations  for  HR  (for  hours), 
MN  (for  minutes),  and  SEC  (for  seconds),  If  the  pragma!  SIMULATION  has  been  specified, 
then  time  is  managed  by  a simulated  time  clock, 

Example: 

path  REFRESH-POSITION; 

import  only  POSITION,  SPEED, 

CAST-TIME,  THIS-TIME:  INTEGER; 
begin 

LAST  -TIME  SYSTEM’CLOCK; 

POSITION  0, 

loop 

delay  10+SEC, 

THIS  TIME  ' SYSTEM  CLOCK; 

POSITION  POSITION  « SPEED-M THIS. .TIME  - L AST_T 1 M E > . 

LAST-TIME  THIS-TIME; 
repeat; 

end; 

8.7  Interrupts 

A box  definition  may  have  an  interrupt  clause  specifying  an  expression  giving  u particular 
interrupt  level. 

interrupt-ClaulO  Interrupt  expression 

Interrupt  boxes  must  have  the  mode  in.  with  no  associated  type.  An  interrupt  box  is 
implicitly  linked  to  a hardware  interrupt,  whose  name  becomes  that  of  the  box. 


An  occurrence  of  a hardware  interrupt  acts  as  a connect  statement  to  the  interrupt  box  of  a 
path.  As  such,  a receive  request  with  an  interrupt  box  results  in  a suspension  of  the  path 
until  the  interrupt  occurs.  An  interrupt  linked  with  a box  is  automatically  unn.  --ked  when 
the  path  executes  a receive  request  on  the  box. 

In  a select  statement  containing  u local  request  for  an  interrupt  box,  the  interrupt  is  masked 
if  another  box  is  connected  before  die  interrupt  occurs. 

Example; 


path  CARD  READER  INTERRUPT  (ATTENTION  inbox, 

DONE  in  box  intarrupt  4) 


begin 

loop 

receivo  ATTENTION, 
lolect 

when  receive  DONE  -->  connect  CH  -DHIVERlFINISH). 
when  delay  2-|uEC  ' connect  CR  DRIVE RIEMPTY), 
end  lelect. 
repeat. 


end 
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8.8  Path  Attributes  and  Predefined  Path  Functions 


I 


There  are  several  attributes  and  predefined  functions  associated  with  paths. 

For  a path  P,  the  attribute  P'PRIORITY  gives  the  path  priority.  The  predefined  procedure 
SET_PRIORlTY  takes  an  integer  argument  and  sets  the  priority  of  a path  to  the  integer 
value,  Before  such  a call,  all  paths  have  the  same  standard  priority. 

When  a path  of  a family  F needs  to  reference  its  own  index,  for  example  tc  pass  it  to 
another  path,  it  may  use  the  attribute  F'lNDEX  for  that  purpose.  Similarly  F'  INDEX,  may 
be  used  for  the  second  index  of  a doubly  indexed  family,  and  so  forth. 

For  a box  B,  the  attribute  B'COUNT  gives  the  number  of  external  paths  that  have  issued  a 
conned  statement  to  the  box  but  have  not  yet  been  serviced. 

For  a path  P,  the  attribute  P'CLOCK  gives  the  cumulative  processing  time  on  the  path.  The 
real  time  system  clock  may  be  accessed  with  the  attribute  SYSTEM* CLOCK,  where 
SYSTEM  is  a predefined  name  denoting  the  system.  The  path  execution  clock  may  be  set  to 
zero  with  the  predefined  procedure  RESET. ..CLOCK  of  no  arguments. 


R.P  Scheduling  of  Multiple  Paths 

There  may  be  multiple  paths  that  are  ready  to  be  executed  by  the  system  processors.  In 
choosing  the  paths  to  be  processed,  paths  with  the  highest  priority  are  processed  first, 
Paths  of  the  same  priority  level  are  processed  on  a first  in,  first  out  basis. 

8.10  Low  Level  Input-Output  Operations 

A low  level  input-output  operation  is  an  operation  acting  on  a physical  file.  Such  an 
operation  is  handled  by  using  one  of  the  two  predefined  procedures  SEND_  CONTROL  and 
RECEIVK-.C’ONTROL. 

The  8KND_C’ONTROL  procedure  may  be  used  to  send  control  information  to  a given 
physical  file.  Sending  control  information  to  a physical  file  may  result  in  starting  a data 
transfer. 

The  RECEIVE  CONTROL  procedure  may  be  used  to  monitor  the  execution  of  an  input- 
output  operation  by  requesting  monitor  information  from  the  physical  file, 

For  such  operations  the  kind  and  formats  of  required  control  information  will  depend  on 
the  machine  and  physical  file  characteristics.  Hence  these  procedures  will  he  predefined 
operations  declared  in  u standard  definition  module  for  a given  implementation. 

Example : 

type  DEVICE_ ADDRESS  - INTEGER; 
type  I..0  RANGE  - (0  31); 

type  1-0  -STATUS  - SETII  .0  RANGE), 

RECEIVE -CON  T I.OL  proceduro  (DEVICE  in  DEVICE  ADDRESS, 

RESUI.T  out  I O STATUS!. 
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9.  EXCEPTION  HANDLING 


This  section  defines  the  facilities  for  dealing  with  exceptional  situations  that  cause  a 
suspension  of  normal  program  execution. 

The  environments  whose  execution  can  be  prematurely  terminated  by  an  exception  are 
blocks,  subprograms,  and  paths.  Exceptions  are  introduced  by  exception  declarations. 
Exception  handlers  are  subprogram  bodies  to  which  control  is  passed  when  an  exception 
occurs. 

9.1  Exception  Declarations 

An  exception  is  declared  as  a subprogram  whose  subprogram  nature  is  exception.  The 
declaration  identifies  the  scope  in  which  the  exception  may  be  raised  and  processed  by  a 
corresponding  handler.  An  exception  subprogram  may  only  have  in  parameters. 

Several  exceptions  are  predefined  in  the  standard  prelude.  These  include 

OVERFLOW  For  exceeding  the  maximum  allowed  value  of  a number 

ZERO_DlVIDE  For  dividing  a number  bv  zero 

RANGE _ERROR  For  exceeding  the  declared  range  of  a variable 

ILLEGAI DATA  For  a data  type  error  on  input 

INVALID-ASSERTION  For  violating  an  assertion 

UNINITIALIZED  For  accessing  the  value  of  an  uninitialized  variable 

TERMINATE  For  prematurely  terminating  the  execution  of  a path  or  a subprogram 

OTFfER-EXCEPTIONS  For  dealing  with  any  exception  for  which  no  explicit 

handler  is  given  in  the  current  scope. 

Examples  of  exception  declarations: 

SINGULAR  exception; 

END_OF_FILE  exception, 

CANCEL-REQUEST  exception  (CODE:  REQUEST-CODE); 

STORAGE -OVERFLOW  : exception  (ZONE.  SIZE  INTEGER); 
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9.2  Exception  Handlers 

The  processing  of  an  exception  is  specified  by  giving  a subprogram  body  for  handling  the 
exception.  An  exception  may  be  processed  by  different  handlers  in  different  scopes.  Speci- 
fically, in  any  block,  subprogram,  or  path  that  is  within  the  scope  of  an  exception  declara- 
tion, a local  body  may  be  provided  to  handle  the  corresponding  exception , 

When  a handler  is  invoked  following  the  corresponding  exception,  execution  of  the  handler 
replaces  the  remainder  of  the  execution  of  the  block,  subprogram,  or  path  where  the 
handler  is  provided. 

Since  the  handler  acts  as  a substitute  for  the  corresponding  unit,  any  statement  that  is  legal 
within  the  unit  may  be  used  within  the  handler.  For  example,  a handler  within  a function 
has  access  to  its  parameters  and  may  issue  a return  statement  on  behalf  of  the  function. 

Examples: 

exception  SINGULAR, 
begin 

PRINT  ( 'MATRIX  IS  SINGULAR  '); 

end; 

exception  CANCEL_REQUEST  (CODE:  REQUEST_CODE); 
begin 

if  CODE  = ABORT  then 
raite  TERMINATE; 

else 

DISPLAY  ( "REQUEST  CANCELLED"), 

end  if, 

end; 

9.3  Raising  Exceptions 

An  exception  is  implicitly  raised  when  an  operation  leads  to  a predefined  exception 
situation,  or  is  explicitly  raised  by  an  exception  statement. 

exception. .statement  : : = 

raise  lsubproqram_calll  (for  path_nemel , 

An  exception  statement  raises  the  exception  named  by  the  subprogram  call.  The  call  may 
specify  input  parameters  to  be  passed  to  the  corresponding  handler  If  no  subprogram  call 
is  given,  a raise  statement  reraises  the  most  recently  raised  exception.  An  exception 
statement  can  also  be  used  to  raise  an  exception  in  another  path. 
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Examples : 


raise; 

raise  SINGULAR; 

raise  CANCEI REQUEST  (CODE  :=  CUR  RENT_REQUEST -CODE); 

raise  TERMINATE  for  PRINTER; 

9.3.1  Dynamic  association  of  handlers  with  exceptions 

When  an  exception  is  raised,  normal  program  execution  is  suspended  and  one  of  the  follow- 
ing events  takes  place. 

(a)  If  the  suspended  block  or  subprogram  does  not  contain  a local  handler  for  the 
exception,  execution  of  the  block  or  subprogram  is  terminated  and  the  same  exception 
is  reraised  in  the  outer  block  or  in  the  calling  subprogram. 

(b)  If  a local  handler  has  been  provided,  execution  of  the  handler  replaces  execution  of  the 
remainder  cf  the  block  or  subprogram. 

For  example,  consider  the  following  program  structure. 

procedure  P; 

Q : procedure; 

R procedure. 

ERROR  : exception; 

procedure  Q. 

exception  ERROR,  [handler  E 2 i 
begin 


. [exception  possibility  (2)  1 


procedure  R; 
begin 

[exception  possibility  (3)  ] 

end; 

exception  ERROR;  (handler  El] 

begin 


begin  [P] 


. . . [exceplion  possibility  (1)1 


end  [P) , 


The  following  cases  may  arise 


If  the  exception  ERROR  is  raised  in  the  statement  list  of  the  outer  procedure  P,  the 
handler  El  provided  within  P will  be  used  to  complete  the  execution  of  P. 


(2)  If  the  exception  ERROR  is  raised  in  the  statement  list  of  Q,  the  handler  E2  provided 
within  Q will  be  used  to  complete  the  execution  of  Q.  Control  will  be  returned  to  the 
point  of  call  of  Q upon  completion  of  the  handler. 

(3)  If  the  exception  ERROR  is  raised  in  the  body  of  R called  by  Q,  execution  of  R is 
terminated  and  the  same  exception  is  raised  in  the  body  of  Q.  The  handler  E2  is  then 
used  to  complete  the  execution  of  the  body  of  Q as  in  case  (2). 

Note  that  case  (3)  results  in  a dynamic  binding,  since  the  exception  in  R resuits  in  passing 
control  to  a local  subprogram  of  Q that  is  not.  visible  in  R. 

Note  also  that  if  a Ureal  handler  were  given  within  R for  the  predefined  exception 
OTHER — EXCEPTIONS,  case  (3)  above  would  cause  execution  of  the  handler  for 
OTHER_EXCEPTIONS  rather  than  direct  termination  of  R. 


9.3.2  Raising  exceptions  in  other  paths 
A path  can  raise  an  exception  in  another  named  path. 

If  the  other  path  is  active,  its  execution  is  suspended  and  a handler  may  be  dynamically 
invoked  as  described  above.  If  the  other  pa*h  is  not  currently  active,  processing  of  the 
exception  is  deferred  until  the  path  becomes  active. 

If  no  handler  exists  in  the  other  path,  the  same  exception  will  be  reraised  in  the  outer 
subprogram  or  path  at  the  rejoin  point  after  the  inner  statement  that  initiated  the  path. 

9.4  Suppressing  Exceptions 

Exception  conditions  may  be  suppressed  within  a given  scope  by  including  in  its  declarative 
part  a pragmat  of  the  form: 

pragmat  SUPPRESS  l icientif icr _l,stl 

Each  designated  exception  is  suppressed  within  the  scope.  As  a result,  no  checks  are 
provided  to  insure  that  the  exceptions  do  not  arise.  This  facility  may  be  especially  useful 
for  the  predefined  exceptions,  since  detection  of  some  of  them  may  be  expensive  unless 
aided  by  special  hardware.  Snould  they  arise,  the  results  may  be  unpredictable. 

Examples: 

pragmat  SUPPRESS  (RANGE _E  R ROR.SUSCR ITT  _t  R ROR ) 
pragmat  SUPPRESS  (IN  .'ALID  .ASSERTION) 
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10.  REPRESENTATION  SPECIFICATIONS 


Representation  specifications  specify  the  mapping  between  data  types  and  features  of  the 
underlying  machine  that  execute  programs.  Representation  specifications  may  be  more  or 
less  direct:  in  some  cases  they  completely  specify  the  mapping,  in  other  cases  they  provide 
criteria  for  choosing  a mapping. 

Representation  specifications  must  appear  immediately  after  the  declaration  list  of  a declar- 
ative part,  and  may  only  be  applied  to  types  declared  in  the  same  declarative  part.  If  pre- 
sent, they  apply  to  all  objects  of  the  type.  In  the  absence  of  an  explicit  specification  for  a 
given  type,  the  representation  will  be  determined  by  the  translator. 

representation  _specif  ication  ::  = 

packing_specification 
| length.specification 
| enumeration  _type..r‘'preser,tatic.'. 

I record_type_representation 

10.1  Packing  Specifications 

A packing  specification  indicates  that  storage  minimization  should  be  the  mam  criterion  for 
selecting  the  representation  of  a record  or  array  type.  In  the  absence  of  a specification,  the 
translator  will  generally  minimize  access  time  to  record  components  or  array  elements. 

pack  mg_specif  ication 

for  tYpe_name  use  packing; 

For  array  types,  packing  specifications  are  allowed  only  if  the  element  type  is  not  itself  a 
composite  type. 

Examples: 

for  MATRIX  use  packing; 

for  F I LE .DESCRIPTOR  use  packing; 

10.2  Length  Specifications 

There  are  three  forms  of  length  specifications.  All  forms  include  an  expression  whose  value 
is  expressed  in  bits.  Attributes  may  often  bo  used  to  simplify  the  writing  of  these  expres- 
sions. 


length  specification 

for  type_namc>  use  expression, 

| for  path.name  use  expression; 

| for  access.ty  pu.name  use  jxpression . 
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The  first  form  indicates  that  objects  of  the  type  should  be  represented  with  a specified 
number  of  bits.  This  number  must  be  known  at  translation  time,  and  must  be  at  least  equal 
to  the  minimum  needed  for  the  representation  of  variables  of  the  type.  A length  specifi- 
cation may  be  used  to  achieve  a biased  representation. 

Examples: 

type  BIASED  = INTEGER  range  (10-000  ..  10-255), 

for  COLOR  use  ONE_BYTF 
for  ELEMENT  use  INTEGER  'SIZE; 
for  BIASED  use  8, 

The  second  form  of  length  specification  may  be  used  to  indicate  the  amount  of  stack  space 
to  be  allocated  to  a given  path.  This  amount  must  be  known  at  translation  time. 

Example:  [the  constant  PAGE  is  expressed  in  bits] 

for  PRINTER  use  4*PAGE; 

The  last  form  of  length  specification  is  used  to  specify  the  amount  of  stack  space  to  be 
reserved  for  the  collection  of  dynamic  records  designated  by  variables  of  a.,  access  type. 

Example:  [a  collection  of  2000  persons] 

for  PERSON  use  2000  * PERSON'RECORD_SIZE: 

10.3  Enumeration  Type  Representations 

An  enumeration  type  representation  specifies  the  internal  codes  for  the  elements  of  an 
enumeration  type. 

enumeiation_type_ representation  ; = 
for  type— name  use  array-aggregate, 

The  array  aggregate  used  to  specify  this  mapping  is  an  array  aggregate  of  type 
array  (type_name)  of  INTEGER 

All  enumeration  values  must  be  provided  with  distinct  integer  values,  and  these  values  must 
be  known  at  translation  time.  The  integer  values  specified  for  the  representation  of  »n 
ordered  enumeration  type  must  satisfy  the  order  relation  of  the  type. 

An  actual  array  parameter  whose  index  is  an  enumeration  type  with  a non-contiguous 
representation  cannot  be  associated  with  a formal  array  parameter  whose  index  is  specified 
by  *. 
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Example: 


type  MIX_CODE  = (AOD  ! SUB  ! MUL  ! LDA  I STA  ! STZ); 
for  MIX-CODE  uw 

(A0D:1,  SUB:2,  MUL:3,  L0A:8,  STA:24,  STZ:33); 

10.4  Record  Type  Representations 

A record  type  representation  specifies  the  storage  representation  of  records,  i.e.,  the  order, 
position,  and  size  of  record  components. 

record_type_representation  : = 

for  type_name  use  record  (alignment  expression,] 

{componeni_representation  jend  record; 

component_representation  : = 

vanable_name  at  expression  bits  range-denotation, 

An  alignment  clause  specifies  that  records  must  be  allocated  at  addresses  that  are  exact 
multiples  of  the  number  of  bits  specified. 

The  position  of  a component  is  given  by  the  position  of  the  storage  unit  containing  the  first 
bit  01  the  component  (at  clause)  and  a bit  range  (bits  clause). 

For  a given  machine,  the  size  of  a storage  unit  is  defined  by  the  configuration  dependent 
constant  SYSTEM'STORAGE._UNIT.  The  first  storage  unit  of  a record  is  numbered  0. 
The  fiist  bit  of  a storage  unit  is  numbered  0.  The  ordering  of  bits  in  a storage  unit  i:  imple- 
mentat  ‘On  defined. 

A component  representation  must  define  a storage  field  large  enough  for  the  component. 
An  implementation  may  place  restrictions  on  how  fields  overlap  storage  boundaries. 

All  expressions  appearing  in  a record  type  representation  must  have  values  that  are  known 
at  translation  time.  Translators  must  check  that  record  components  of  a given  variant  do  not 
overlap. 

A component  representation  may  also  be  used  to  specify  the  address  and  width  of  a variable. 
Example: 


type  PROGRAM_STATUS_WORD  = 

record 

SYSTEM-MASK  array  (0..  7)  of  BOOLEAN; 

PROTECTION_KEY  (0  ..  15); 

MACHINE-STATE  array  (A  I M I W ! P)  of  BOOLEAN; 

INTERRUPT-CAUSE  INTERRUPTION-CODE; 

ILC  (0..  3), 

CC  (0..  3); 

PROGRAM-MASK  array  (FIX  I DEC  ! EXP  ! SIGN  I F ) of  BOOLEAN; 

INST-ADDRESS:  ADDRESS, 

end  record; 


for  PROGRAM_STATUS_WORD  uie 
record  alignment  64; 

SYSTEM-MASK  at  0 bits  0 . 7; 

PROTECTION-KEY  at  Obits  8.  11: 

MACHINE-STATE  at  0 bits  12  ..  15; 

INTERRUPT_CODE  at  0 bits  16  ..  31 ; 

ILC  at  1 bits  0 ..  1; 

CC  at  1 bits  2 ..  3, 

PROGRAM-MASK  at  1 bits  4 ..  7; 

INST-ADDRESS  at  1 bits  8 ..  31; 
end  record; 

10.5  Change  of  Representations 

Only  one  representation  can  be  defined  for  a given  type.  As  a consequence  if  an  alternate 
representation  of  a given  type  is  desired,  it  is  necessary  to  define  a second  type  which  is 
logically  equivalent  (has  the  same  properties)  but  has  a different  representation. 

Example; 

— PACKED. .DESCRIPTOR  and  DESCRIPTOR  are  two  different 
— types  with  identical  properties 

type  DESCRIPTOR  = 
record 


type  PACKED-DESCRIPTOR  = DESCRIPTOR; 
for  PACKED-DESCRIPTOR  use  packing; 

Change  of  representations  may  be  accomplished  by  assignment  with  explicit  type  conver- 
sions. Such  conversions  are  legal  for  types  declared  as  logically  equivalent. 
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Examples: 


0 DESCRIPTOR; 

P PACKED_DESCRlPTOR; 

P : = PACKED-DESCRIPTOR  (D);  — pack 

D ;=  DESCRIPTOR  (P);  — unpack 

10.6  Configuration  and  Machine  Dependent  Constants 

Configuration  dependent  constants  are  expressed  as  attributes  of  the  predefined  name 
SYSTEM.  Similarly,  translator  options  may  be  interrogated  with  boolean  attnbutes  of  the 
predefined  name  OPTION.  Other  implementation  dependent  properties  of  specific  program 
constructs  may  be  interrogated  using  appropriate  attribute  qualifiers. 

Examples: 

option'space 
option'time 
option'list 

SMALUNT'lMPLEMENTtD- RANGE 
TABLE  ADDRESS 

iposition  of  COMPONENT  In  storage  units) 

1 first  bit  of  bit  range) 

(last  bit  o(  bit  rangel 


SYSTEM'STORAGE-UNIT 

SYSTEM'MEMORY-SIZE 

system'name 

real'radix 

integer'size 

X.  component'position 

X.  COMPONENT'FlRST-BIT 

x.  component'last_bit 
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11.  OVERALL  PROGRAM  STRUCTURE  AND  COMPILATION  ISSUES 


This  section  describes  the  overall  structure  of  programs  and  the  facilities  for  separate  com- 
pilation, In  general,  a program  is  a collection  of  one  or  more  compilation  units,  which  are 
subprograms,  definition  modules,  or  paths.  Exception  bodies  may  not  be  separately  com- 
piled, since  their  use  is  local  to  a given  scope.  Compilation  units  may  be  grouped  in  libraries 
to  be  reused  by  several  different  programs. 

This  section  also  describes  generic  program  units,  the  facilities  available  for  conditional 
compilation,  and  the  treatment  of  configuration  dependent  features. 

11.1  Compilation  Units 

The  body  of  a subprogram,  path  or  definition  module  declared  with  the  translation  mode 
separate  is  called  a compilation  unit  and  is  compiled  separately.  This  means  that  its  text 
may  be  submitted  to  the  translator  separately  from  the  rest  of  the  or  . gram  text. 

Algorithm  modules,  another  form  of  compilation  units  v ill  '“scribed  later. 

compilation.. unit  : : = body  I algorithm_module 

Declarations  of  separately  compiled  units  may  only  appear  within  the  outermost  declarative 
part  of  a subprogram,  which  itself  is  separately  compiled.  The  main  program  is  implicitly 
declared  in  the  standard  prelude  as 

MAIN  : separate  procedure; 

Examples  of  separately  compiled  units: 

procedure  MAIN, 

l.  comtant  = 100, 

0 teparate  definition; 

A teparate  procedure  (X:  in  INTEGER), 

bag  in 

end  [MAIN]  ; 


definition  D; 

I.IMIT  comtant  INTEGER  = 1000, 

TAflLE  array  (1  . LIMIT)  of  INTEGER, 

end  ( D| , 
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procedure  A (X:  in  INTEGER); 
import  D: 

Y INTEGER; 

C separate  procedure; 

begin 

end  (A); 

11.2  Recompilations  and  Scope  Rules 

The  scope  rules  applicable  to  separate  subprograms  and  paths  are  identical  to  those  of 
normal  subprograms  and  paths.  For  example,  a separate  subprogram  C declared  in  a sub- 
program A has  access  to  the  identifiers  declared  in  A,  exactly  as  if  C were  declared  as  a 
normal  procedure. 

The  rules  of  recompilations  follow  the  scope  rules:  a compilation  unit  must  be  recompiled 
whenever  another  unit  which  it  sees  is  recompiled,  since  the  visible  information  may  have 
been  changed.  As  a consequence,  recompilation  of  the  enclosing  unit  A requires  a recom- 
pilation of  inner  separate  subprograms  or  paths  like  C. 


Ip.  addition,  if  a compilation  unit  C imports  a definition  D,  it  must  be  recompiled  whenever 
D is  recompiled. 

A different  rule  applies  to  separate  definition  modules.  A separate  definition  module  does 
not  have  access  to  the  local  entities  of  the  procedure  where  it  is  declared,  unless  it  explicitly 
imports  the  name  of  the  procedure.  As  a consequence,  a separate  definition  must  only  be 
recompiled  when  any  of  the  units  it  imports  is  recompiled. 

The  declaration  of  a separate  definition  module  plays  the  same  role  as  that  ol  a normal 
definition  module;  it  identifies  the  point  where  the  definition  must  be  instantiated.  A 
separate  definition  may  be  compiled  before  the  procedure  where  it  is  declared,  provided 
it  does  not  import  the  name  of  the  procedure.  This  possibility  is  essential  for  library  def- 
inition modules. 

In  the  previous  example: 

(ai  Within  procedure  A,  the  identifiers  L and  D declared  in  Ma IN  are  visible.  The  identi- 
fiers LIMIT  and  TABLE  imported  from  the  definition  module  D are  also  visible. 

(b)  Within  definition  D,  the  identifiers  L and  A declared  in  MAIN  are  not  visible  since  D 
does  not  import  MAIN.  Thus  D may  he  compiled  either  before  or  after  MAIN. 

(c)  Recompilation  of  MAIN  requires  recompilation  of  A 

(d)  Recompilation  of  D requires  recompilation  of  A 
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11.3  Algorithm  Modules 


Changes  in  a subprogram  body  or  within  the  algorithm  part  of  a definition  module  do  not 
affect  units  that  import  the  definition,  since  these  units  only  have  access  to  the  visible  part. 

As  a result,  to  minimize  recompilations,  a definition  module  may  be  compiled  in  two 
units:  a definition  module  containing  only  its  visible  and  private  declarative  parts,  and  an 
algorithm  module  containing  its  algorithm  and  initialization  parts. 

Similarly  a subprogram  may  be  compiled  in  two  units:  a subprogram  body  containing  only 
the  declarations  needed  by  inner  compilation  units,  and  an  algorithm  module  containing 
local  declarations  and  the  statement  list  of  the  subprogram. 

An  algorithm  module  bears  the  same  name  as  the  subprogram  or  definition  module  of  which 
it  is  a part.  Recompilation  of  the  algorithm  module  of  a separate  definition  does  not  necessi- 
tate recompilation  of  units  importing  the  definition.  Similarly,  recompilation  of  the 
algorithm  module  of  a separate  subprogram  does  not  necessitate  recompilation  of  separate 
procedures  and  paths  that  are  declared  within  the  subprogram. 

algorithm _module  : : = 

algorithm  identifier:  declarative _part 
(begin  statement-list]  end; 

For  example,  consider  the  definition  module  RAT10NAL_.NUMBERS  of  Section  7.3  de- 
clared as  a separately  compiled  unit: 

RATIONAL. .NUMBERS  : jeparate  definition; 

The  first  compilation  unit  contains  all  the  information  needed  by  other  program  units  that 
import  the  module. 

definition  RATIONAL-NUMBERS: 
type  RATIONAL  “ 
record 

NUMERATOR  INTEGER, 

DENOMINATOR  (1  . . INTEGER'LASl ,, 

end  record; 

EQUIV  function  (X,Y.  RATIONAL!  return  BOOLEAN, 

ADO  function  (X,Y:  RATIONAL)  return  RATIONAL; 

MULT  : function  <X,Y : RATIONAL)  return  RATIONAL; 

end; 

Note  that  the  above  unit  docs  not  contain  the  function  bodies.  These  are  in  the  separate 
algorithm  module; 
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algorithm  RATIONAL-NUMBERS: 

procedure  SAM6_DEN0MINAT0R(X,Y : acceii  RATIONAL); 

begin 

(reduces  X and  Y to  common  denominator) 

end; 

function  EQUIV(X,Y:  RATIONAL)  return  BOOLEAN, 

U,V:  RATIONAL; 
begin 

U :=  X;  ^ 

V :=  Y; 

SAME  DENOMINATOR  (U.V); 

return  (U  NUMERATOR  - V. NUMERATOR ); 

end; 

function  ADD  , , 
function  MULT  ... 

end; 

11.4  Libraries 

Libraries  can  be  constructed  with  separately  compiled  subprograms,  definition  modules, 
and  algorithm  modules.  For  standard  user  packages,  such  as  an  application  level  input- 
output  package,  splitting  of  definition  modules  into  two  parts  (one  corresponding  to  the 
user  interface,  the  other  containing  the  bodies)  should  be  systematically  used. 

11.5  Compilation  file 

Compilers  must  preserve  the  same  degree  of  type  safety  for  separately  compiled  units  as 
for  other  units.  Consequently,  a compilation  file  containing  information  on  previously  com- 
piled units  must  be  maintained  by  the  translator.  This  information  includes  symbol  tables 
and  information  pertaining  to  the  order  of  previous  compilations. 

A normal  submission  to  the  translator  will  include  the  text  of  the  compilation  unit  and  the 
compilation  file,  The  latter  is  used  for  checks  and  may  lie  updated  by  the  current 
compilation. 

11. G Conditional  Compilation 

Statements  appearing  in  a case  statement  will  not  be  compiled  if  the  case  discriminant  is 
known  at  translation  time  and  if  they  are  not  in  the  alternative  selected  by  the  discriminant 
value, 

Similarly  an  if  statement  with  conditions  known  at  translation  time  may  he  used  to  achieve 
conditional  compilation. 


Conditional  compilation  of  declarations  may  be  achieved  in  a similar  fashion  with  a variant 
part  whose  discriminant  is  known  at  translation  time.  Only  the  declarations  of  the  trans- 
lation time  chosen  variant  will  be  compiled.  A variant  part  that  appears  in  contexts  other 
than  a record  declaration  can  only  be  used  for  conditional  compilation;  its  discriminant 
must  always  be  a translation  time  constant. 

Variant  parts  and  translation  time  case  statements  can  be  used  for  compiling  program 
portions  that  depend  on  the  object  machine  configuration.  In  such  cases  the  discriminant 
will  be  a translation  time  constant  relating  to  the  con  figuration . 

In  the  example  below,  vanant  parts  and  translation  time  case  statements  are  used  to  produce 
two  alternative  programs  that  differ  only  on  the  value  of  a constant  CHOICE,  which  is  set 
to  one  of  two  values  before  compilation. 

Example  of  conditional  compilation: 

CHOICE:  comtant  (A  ! B)  = A, 


procedure  ALTERNATE  (X  REAL.). 

cate  CHOICE  of 

whan  A U : REAL: 
when  8 - >•  V : LONG-REAL: 

end  cate, 
begin 

case  CHOICE  of 

when  A = .-  U X 

when  B « • V LONG-REAL(X). 

end  case; 

(remaining  statements  of  ALTERNATE) 

end. 


Example  of  resulting  choice: 

procedure  ALTERNATE  (X  REAL); 

U:  REAL; 
begin 

U X, 

[ r cn i ming  statement  of  ALTERNATE] 


fit) 


end; 


11.7  Generic  Program  Units 

Generic  program  units  are  program  units  with  translation  time  parameters  specified  by  a 
generic  clause.  Instances  of  generic  program  units  are  declared  by  generic  instantiations. 

generic_clause  : : = generic  [ ( identifier list)  ) 

generic-instantiation  : . = 

identifier:  new  generic-nature  generic-name 
[ (generic— association  {,  generic-association  } ) 1; 

generic  nature  : : = function  i procedure  | definition  | path 

generic-association  : : = 

generic— parameter— name  ==  expression 
I generic_parameter_name  ==  name 

The  identifier  list  of  the  generic  clause  defines  the  generic  parameters.  They  may  appear 
anywhere  in  the  body  of  the  generic  program  unit. 

In  order  to  create  an  instance  of  a generic  program  unit,  replacements  for  the  generic  para- 
meters must  be  provided  by  generic  associations.  Either  a translation  time  expression  or  the 
name  of  a previously  declared  entity  may  be  substituted  for  a generic  parameter.  This  sub- 
stitution is  performed  in  the  text  of  the  generic  program  unit  for  each  generic  instantiation. 

Instances  of  generic  program  units  may  be  used  as  program  units.  Note  that  when  several 
instances  of  the  same  generic  definition  module  are  imported  in  the  same  scope,  renaming 
clauses  are  usually  necessary  to  resolve  name  conflicts.  Within  a generic  program  unit,  the 
type  of  a variable  V may  be  denoted  by  the  attribute  V'TYPE. 

Generic  program  units  may  not  be  separately  compiled. 

Examples  of  generic  declarations: 

STACK  generic  (ELEM,  SIZE)  definition; 

SWAP  generic  (ELEM)  procedure  (U,V  access  ELEM). 

Examples  of  generic  instantiations: 

STACK..IMT  : new  definition  STACMEIEM  =*•  INTEGER,  SIZE  --  200); 

STACK-BOOL  : new  definition  STACKIELEM  ==  BOOLEAN,  SIZE  ==  1001, 

EXCHANGE  new  procedure  SWAPIELEM  --=  INTEGER); 

EXCHANGE  new  procedure  SWAPIELEM  = HEAL), 


I 
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Example  of  a generic  definition  module: 

definition  STACK; 

PUSH  : procedure  (E:  in  ELEM); 

POP  : procedure  (E:  out  (ELEM); 

STACK-ERROR  : exception  (MODE:  (OVER  ! UNDER)); 
algorithm 

SPACE  : array  (1  . . SIZE)  of  ELEM; 

INDEX  : (0  . .SIZE)  : = 0; 

procedure  PUSH  (E:  in  ELEM); 
begin 

if  INDEX  = SIZE  then 

raise  STACK -ERROR  (OVER); 
end  if; 

INDEX  : = INDEX  + 1; 

SPACE(INDEX)  = E; 
end  [PUSH)  ; 

procedure  POP  (E  out  ELEM). 
begin 

if  INDEX  = 0 then 

raite  STACK-ERROR  (UNDER), 
end  if; 

E : = SPACE(INDEX); 

INDEX  : = INDEX  - 1 ; 
end  (POP); 

exception  STACK-ERROR, 
begin 

raise  TERMINATE; 
end  [STACK-ERROR]; 


end  [STACK], 


1 
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APPENDIX  A.  SAMPLE  INPUT  OUTPUT  DEFINITIONS 


The  general  facilities  offered  by  the  Green  language  enable  the  construction  of  application 
level  input  output  facilities  without  additional  language  constructs.  Thus  standard  appli- 
cation level  packages  may  be  developed  for  major  application  classes,  current  or  future, 
without  affecting  the  core  language  as  seen  by  the  users. 

The  two  examples  provided  below  are  meant  to  indicate  the  principle  of  construction  of 
such  packages  and  to  illustrate  the  general  form  of  user  interfaces. 


The  first  example,  CHARACTER_FILE_HANDLING  corresponds  to  the  treatment  of 
character  files.  The  type  FILE  itself  is  private  (i.e.  its  name  is  known  but  its  properties 
are  not  directly  accessible  to  the  user).  The  visible  part  of  the  definition  module  declares 
procedures  for  standard  file  operations  (creating,  opening,  closing)  and  for  the  procedures 
GET  and  PUT.  The  algorithm  part  contains  the  bodies  of  these  procedures.  It  may  also 
contain  local  procedures  and  paths  performing  the  necessary  low-level  input  output  oper- 
ations. The  initialization  part  creates  and  opens  the  standard  files  INPUT  and  OUTPUT. 
Notice  the  use  made  of  named  and  optional  parameters  in  these  calls  of  CREATE. 

definition  CHAR  ACTE  R_F  HE.  HAND  LING, 
type  FILE  = private; 


INPUT,  OUTPUT  : FILE; 


type  FILE-ACCESS-METHOD  = 
type  F I LE _ RECORD -FORM AT  = 
type  ACCESS-RIGHT  = 


(SEQUENTIAL  ! INDEXED  ' DIRECT); 

(FIXED  ! VARIABLEl 

(INPL‘T_MODE  < OUTPUT-MODE  ' UPDATE-IWODF); 


CREATE  procedure  (NAME 

RECORO-LENGTH 

KtY— LENGTH 

BLOCK-LENGTH 

ACCESS-METHOD 

RECORD-FORMAT 

F 


array  (*)  of  CHARACTER 
INTEGER  :=  30; 

INTEGER  0; 

INTEGER  :=  320; 

FILE._  ACCESS-METHOD  ;=  SEQUENTIAL. 
FILE-RECORD-FORMAT  - FIXED, 
out  FILE), 


DELETE  : 

procedure 

(F 

■ FILE); 

OPEN 

procedure 

(F 

FILE,  A . 

ACCESS_:.;GHT1. 

CLOSE  . 

procedure 

(F 

FILE) 

GET 

procedure 

IF 

FILE;  BUF 

access  array  (r  i 

of 

CHARACTER); 

PUT 

procedure 

(F  ; 

FILE,  BUF 

accoss  array  (*1 

of 

CHARACTER), 

A 1 


jorher  file  handling  procedures' 


private 

type  FILE  = [ . . . ] ; 
algorithm 

l internal  tables  and  bodies  of  above  procedures] 

begin 

CREATE1NAME  :=  "SYSIN".  F •*:  INPUT); 

OPENONPUT,  INPUT-MODE); 

CREATEINAME  "SYSOUT";  F =.  OUTPUT); 

OPEN(OUTPUT,  OUTPUT-MODE); 

end  [CHARACTER_FILE_HANDLING]; 

The  second  example  is  an  interface  definition  module  for  Pascal-like  Input-Output.  The 
corresponding  algorithm  module  may  be  compiled  separately  and  need  not  be  shown  to  the 
user. 


definition  PASCAL  — 1_0, 

import  FILE_CHARACTER-HANDLING, 


LINE-LENGTH:  constant  = 120; 

subtype  FIELD— WIOTH  = INTEGER  range  (0  . LINE-LENGTH); 


READ 

procedure 

(V  : 

out 

CHARACTER:  F : in  FILE 

- INPUT) 

READ: 

procedure 

(V: 

out 

INTEGER;  F in  FILE 

:=  INPUT) 

READ: 

procedure 

(V. 

out 

REAL,  F : in  FILE 

: = INPUT) 

WRITE: 

procedure 

<E 

in 

CHARACTER; 

W: 

in 

FIELD-WiDTH  :=  1; 

F 

in 

FILE  - OUTPUT), 

WRITE: 

procedure 

IE' 

in 

BOOLEAN; 

W: 

in 

FIELD-WIDTH  :=  5; 

F: 

in 

FILE  :»  OUTPUT); 

WRITE: 

procedure 

(E. 

in 

INTEGER; 

W: 

in 

Fit  .D-WIOTH  :=  10, 

F: 

in 

FILE  :=  OUTPUT): 

WRITE: 

procedure 

IE: 

in 

REAL 

W: 

in 

FIELD-WIDTH  :=  20; 

W1 

in 

FIELD-WIDTH  :=  0: 

F. 

in 

FILE  :=  OUTPUT): 

WRITE: 

procedure 

lE 

in 

array  (*)  of  CHARACTER, 

F 

in 

FILE  = OUTPUT), 

end  |PASCAL_l_0:  , 


Here  again  the  use  of  optional  parameters,  and  also  of  overloading  permits  the  user  to 
formulate  calls  to  these  procedures  in  a way  which  is  very  similar  to  Pascal.  Thus  calls  could 
b(  written  as  follows. 

WRITEili.  WRITE (2E0),  WRITE(A  = B).  WRITE  ("THE  END"), 
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3 9 Declarative  parti 


5.  Statements 


deciaiative-part  :=  [import -dause|  {declaration} 

\ representation -specification } \ body  t 

body  . .=  subprogram_body  I definition -module— body  I path  — body 

4.1  Variables 

variable  : = 

vanable_name  | array  ..element  | slice  i record-component 
array  .element  = variable  (expression  « .expression  ' 
slice  = variable  (range-denotationi 

record -component  s variable  component  _ncme  I variable  all 

4.2  Scalar  values  and  attributes 

scaiar.value  = number  j enumeration.vaiue  | attribute 

attribute  denotation  attribute  .qualifier 

denotation 

name  variable  p<*tn  .denotation  | bo* -denotation 

4.3  Expressions 

expression 

simple  .expression  '[relational . operator  simple_expr ession: 

i simple_expression  n (not)  range_denotation 

simple  .expression  = (simple -expression  adding -Operator  I term 

term  - [ term  multiplying.. operator ) factor 

factor  . 1 [unary  operator | primary 

pnmary  ■ variable  I scalar  _ value  I array  _aggregate 

I record  aggregate  [ function  call  ■ texpresS'Ont 

i qualified.  expression  | none 

f unciion _call  subprogram  _ca' 

4.4  Operators 

relational  .operator  = ~ I '-  | | <,  = | .>  >: 

adding  .curator  * - | or  I *or  & 

multiplying  operutoi  'I  i I mod  ! div  I ar»d 

unary  Oftt.’jtO'  ♦ i - I not  | at* 


statement  _ list  = \ [label)  statement  * 

statement  : = simple-statement  I compound-statement 
[ transfer -statement 

simple_statemem  = assignment-statement  i dllOCdtion_staiement 
j subprogram _cail -statement  ! assert-statement 
I synchioni2ation_sldtement  inl:ne_statement 
! null. 

compound —Statement  •. s if  ..statement  | case— statement 
I loop-statement  ! select-statement  1 block 


transler  -Statement  !uop_exit  .statement 

I return,  statement  j exception -statement 
I goto_statement 
label  - identifier 


5.1  Alignment  statements 

ass.gnment . statement  - variable  express. on. 

5.2  Allocation  statements 

allocation-statement  s 

variable  new  iecord-aggrcgate 

I variable  new  tyurd  .expression . 

5 3 Subprogram  calls 

subprogram  .cal* . statement  - subprogram  .call . 

subprogram  ca1'  : subprogram  .name 

i loarameter -as-ioc-ation  \ .paramttei  .association  ; j ] 

parameter  .association 

input  .associatiori  output-association  access -association 
input_assocation  = i loimai .parameter  | expression 
output  ..association  - | formal -parameter  --  | vanabie 
access  .association  * [format,  parameter  •-)  vanafre 
formal  parameter  ' identifier 

5.4  Return  stitementt 
return  statement  --  return  [expression) 


5 5 If  statements 


4.5  Qualified  expressions 

qua1  'ii-d  expression 

tvired  .expression  i constrained  ..expression 


rl.  statement 

if  cond't  on  then  slalpmeni -Int 
[ elsif  co  ndit'O’i  then  statement  list  • 
; els#  statement  _l:st 1 

end  if. 


typed,  expression  r type  _ name  texpression) 


condition 

expression  i and  than  expression  ) 
expression  •;  or  else  expression  ) 


constrained  expression  - subtype .name  (expression) 
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APPENDIX  B.  SYNTAX  SUMMARY 


2.9  Laxicil  *]»rmnti 

identifier ideniif ier  ■;  .identifier  • 

3.1  Declaration! 

declaration 

element  .declaration 
\ subtvpe_dec;arat'on 
j subprogram -declaration 
| definition  ^declaration 
| variant_part 

3.2  Element  declaration* 

element  ..declaration  = 

vaMahi*-  .declaration  renaming  declarator 

| constant  .declaration  deferred- constant  dedarat-on 

vaf.uble_dedaration 

identifier _tist : type  | - expression!  . 

renaming_declaration  - 
identifier  type  7 ’ variable. 

constant -deciarat  ion 

identifier  constant  itypej  - expression. 

deferred -constant -declaration 
identifier  constant  type. 

3 3 Type  and  subtype  declarations 

type-declaration  type  identifier  - type . definition, 
lype-definmon  : type  i private  (parameter I 
type  : = 

simple -type -definition  \ constraint ; 
array-type  ( record-type 

simp'e  ^typc_def  imtion  scalar-type  I type -denotation 
type-denotation  ' type_name  i suhtypp-name  i attribute 
ccr.slramt  .= 

scalar -constraint  . arra  * . constraint  . record  .constraint 
Subtype  -dec'ara!  n - 

si-  ype  identifier  type -denotation  ; constraint i . 

3.4  Scalar  types 

scalar  . type  - discrete  type  real  type  tunge- 


3.4.3  Real  types 

real_type  - precision simpie_e*pression 

3.4.4  Enumeration  types 

enumeration -type  - 

lenumeration_value  \ ' enumeration -value  }) 

] tenumeretion-vaiue  [ enumeration^vaiue  :-t 

enumer  at>on_  value  identifier  j character 

3 5 Array  types 

array  .type  s array  ■index  ; .index  ; ' ol  type 

mdex  ■ iange  .der'-otauon  1 * 

range  .denotation  - range  type  ..denotation 

airav  -constraint  " ( r ange _ denotation  ! .. tj.-.ge -denotation  • ) 

3 5.2  Arrav  aggregates  and  strings 

array,  aggregate  ' character  str-ng 

i (type- name!  leiemenl-Specfication  I .dement  _ 5«'cC • f icat'On  ;• ) 

element .. specification  c selection  expression 

selection  se'ecied .. value  \ ■ selected ..vaiu*  • 

selected,  value 

number  | enumeration _ value  range  .deno’dtion  others 

3 6 Record  types 

record-tyfje  - record  component _ list  end  record, 
component  list  i element  .declarai  on  i '.variant  _ pan  ; 
variant  . pan  case  disc  immant  of  \ vanant  ■ end  case, 
d'scii.mmam  vanab!'* . name 
vanant  when  st-lcctioi-  '•  component . I<st 

3 6 2 Record  aggregates  and  record  constraints 

record  .aggregate  - I type  - name ' iccmponenl  specification 

\ component  . spec  f 'Cation  ' '■ 

component  sprnticat  .on  - 

i umponr!  name  • 1 component  name]  rxpiess'un 


| type -declaration 
1 access-type  - declaration 

| path-declaration 
| generic-instantiation 

1 null; 


discrete-type  -scaled. type  i enumeration  type 

scalar  constraint  = range  (range! 

range  1 simple,  expression  . simpie  . expression 

3.4.2  Scaled  types 


lecorU.  cornu  am!  record  aggregate 

3 7 Access  types 

access  lyix-  derlai  ation  - access  type  idem .I.*m  - = ivpi’ 


seated  type  - scale  simple.  expressiO' 
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5.6  Cue  statements 


7.1  Specification  of  definition  modules 


I ' 
t.  , 
£ 1 
i i 

i i 


4 


t 


ca<e -Statement 

case  expression  of  .alternative  ‘end  case 
a'temative  = when  selection  •->  statement  list 

5.7  Assertion  statements 

assert  .statement  : » assert  Icondihonl  ; 

5.8  Loop  statements 

loop-Siaiement  = (iteration  ..specification ; hasiC_!oop 

basic  _toop  loop  statement  H»  repeat 

iteration  .specitirat'Ois  ■ 

while  condition  until  condition 

for  -onp  parameter  in  (reverse)  rang*-  d. notation 

loop  parametci  ■clor'-li ! e: 

5 9 Loop  exit  statements 

bmp  rxi»  stat«‘*»'»'nt  exit  ‘when  condit-nn- 

5 10  Blocks 

h>.s<  u 

declare  oitUi .s'. >’.•*  pai!  begin  s*.a!»*iiu'i.i  ;?st  end. 

5 1 1 Goto  statements 

•JO to  S !3!i'i»iit. I goto  • : If-r ! i tii»i  . 

6 ! Subprogram  declarations 

subprogram  . deUd'ai'O'. 

name-  i translation  modri  subprogram  nature  formal  pari, 
s'lhprogirt'.i  nature  procedure  function  I exception 

toiir.al  par  t 

; ipa>amefi'i  r*»>l  o,%  parameter  rletm  fmn  ‘ | l return  typel 

pdf  arm- 1'.-*  definition 

idi-ntdr*  !»sl  mo  le  type  rxp>i*ssionj 

mod'-  m:  i out  access 

namri  sileiitif  » i i rHaia<  ti'i  slung 

iiansiat-oi:  modi.  separate  urni-i  r oause 


6 3 Subprogram  bodies 

S.ihprngiam  body 

I inline!  subprogram  natn'r  name'  format  pa:' 
diTiar.it.-.  e part  I begin  stalrmr*:-.!  'istl  end 

6.6  Code  insertions 

■ 1 1 1 ■ r '■  i ■ s'Jtenie.ii  inline  ••coni  agq.-eqaie 


defindion  - declaration  . - 

identifier  j translation_mode|  definition. 

defmmon  module- body  ■ 

definition  identifier  declarative,  part 
(private  declaiative-parti 
(algorithm  dedarative_part! 

[begin  statement -list]  end; 


7.6  Scope  rules 

import  clause  “ import  none;  i import  (only]  item  { .item}, 
item  identifier  | (renaming-clause  I .renammg_cfause  }) ) 
renaming  clause  new . name  - old  .name 

8.1  Path  declarations 

path  declaration 

identification  ! translation  - mode  I path  box - part . 


bn*  pa? 


■ box  definition  •.  box  del uupon  * J i 


box  definition 

identification  box  mode  box  ! t y pe  | I interrupt . .clausel 


t>ox  mode 


in  I out 


■ dnu’if  cation 

identifier  i -.range  c.Hi.otation  . i ange  _ denot  at  ion  5 i | 


8 2 Path  bodies 

paih_tK)dv 

path  path,  name  lio*  part. 

riiTiai at »vi-  pa' i begin  statement  list  end. 


8 3 Synchronization  statements 

synchiom/aiinn  statement  do  nine1  paths  statement 
I -oca' _ leijufsi  -statemrnt  I connect  statement 
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8.3.3  Connect  statements 


connect -statement 


connect  path— denotation  (box -denotation  [ - expression) ), 
connect  path  _ denotation  (box  ..denotation  | - . variable) ) . 


path -denotation  = path_name  I (expression  «,  .expression')! 


8.4  Select  statements 


select-statement  : : 5 

select  selected _box  • 1 selected-box  }of 

when  (condition!  local,  request  .clause  - statement -list  ' 

end  select. 


selected-box  - box  -denotation  i mult'ple . box -selection 


8.4  1 Multiple  box  selections 


multiple . box  _ selection 

box  _name  ( box  . index  ( .bo* -index  - 1 


bo* -index  all  identifier  in  <ange.  denotation 


8 .7  Interrupts 


■ nif-rfiipt  rlAn^t*  - interrupt  es\:n>* 


9 3 Raising  exceptions 


exception,  statement 

raise  (subprogram  calll  i for  path  . name; 


10  Representation  specifications 


representation  specification 
packing  spf.'Ci?. Canon 
length . spec-ficai-on 
enumerator'  type  'epresentato" 


'CCont  type  n'prr'.rntdl  OO 


10  1 Packing  specifications 


packing  »pC\.i  ■ it  j . ici1 

for  type  , name  use  packing. 


10.2  Ltngth  specifications 


length  specification  . - 

for  type— name  use  expression 
I for  path,  name  use  expression. 

I for  access,  type -name  use  expression 


10.3  Enumeration  type  representations 


enumeration.  type_representation  - 
to*  type_name  use  array-aggregate. 


10.4  Record  type  representations 


record.. Type-representation  = 

for  type_name  use  record  (alignment  expression, 
component  ..representation  ) end  record; 


romnrnpni  representation 


variable-name  at  expression  bits  range  -denotation. 


11  1 Compilation  units 


compilation.  un«t  ' body  I algor i thm  _ module 


11.3  Algorithm  modules 


algor  thm  module 

algorithm  ■dc.'Udiei  declarative-  part 
(begin  statement -l-st’  end; 


1 1 .7  Generic  program  units 


generic  clause  r generic  i (ident.f-er  _hst)  i 


generic  _ instantiation 

identifier  new  ger-enc  nature  gi-Hu  iC  _ name 
I (generic -association  { .genenc  - association  •)  1 , 


generic  nature  function  ■ procedure  I definition  path 


generic. .association 

generic,  par  ampler  _ r.flme  7~  expression 
i gent-r ic -parameter  _ name  ■ ; name 


I 
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APPENDIX  C.  INDEX 


Access  association  (see  Access 
parameter) 

Access  parameter  6.2,  5.3,  5.3.1 
Access  type  3.7,  5.2,  10.2 
Access  type  representation  10.2 
Access  variable  3.7,  5.2,  10.2 
Actual  parameter  5.3.1,  6.3  (see 
also  Subprogram  call) 

Adding  operator  4.4.2,  4.3,  4.4 
Algorithm  module  11.3 
Algorithm  part  7.3 
Alignment  clause  10.4 
Allocation  statement  5.2 
Alternative  5.6 

Array  aggregate  3.5.2,  4.3,  10.3 

Array  constraint  3.5 

Array  element  4.1 

Array  type  3.5,3  8.  5.1.1,  10.1 

Assert  statement  5.7 

Assignment  statement  5.1 

At  clause  10.4 

Attribute  4.2.  2.6,  3.4,  3.4.2.  3.4.3. 

3.5,  8.8,  10.4,  10.6 
Attribute  qualifier  2.6  (see  also 
Attribute) 

Backus-Naur  form  ? 9 
Base  type  3.8 
Based  number  2.3 
Basic  loop  5.8 
Bits  clause  10.4 
Block  5.10 
Body  3.9 

Boolean  type  3.4.5,  4.  4. 

Boolean  vector  3.5.3,  4.4.2,  4.4.3, 
4.4.4 

Box  definition  8.1 

Box  denotation  8 3. 2.  8.3.3,  8.4 

Box  index  8.4.1 

Box  mode  8.1 

Box  part  8.1,  8.2 

Case  stall  ment  5.6.  11.6 
Character  2.1,  3. 1.5,  2.4 
Character  set  2.1 
Character  string  2.4 

(see  also  Array  aggregate) 
Character  type  3.4 .5 


Clock  8.6,  8.8 
Code  insertion  6.3,  6.6 
Comment  2.5,  2.8,  5.7 
Compilation  facilities  11. 

Compilation  file  11.5 
Compilation  unit  11.1 
Component  list  3.6 
Component  representation  10.4 
Compound  statement  5. 

Condition  5.5,  5.7,  5.8,  5.9,  8.4 
Conditional  compilation  116 
Configuration  constant  10.6 
Connect  statement  8.3.3,  8.4, 

8.6.  8.7,  8 8 

Constant  declaration  3.2 
Constant  record  component  3.6.1 
Constraint  (see  type  constraint) 

Declaration  3.1  (see  also 

Declarative  part  and  Scope) 
Declarative  part  3.9,  5.10,  7.1, 

7.6.  8.2.  8.3.1,  9.4,  11.1,  11.3 
Deferred  constant  3.2,  3.6.1,  7.4 
Definition  declaration  7.1 
Definition  module  7.,  11.2 
Definition  module  body  7.1,  3.9 

11.1,11.7 

Delay  request  8.6.  8.3,2 
Discrete  type  3.  4 
Discriminant  3.6.1,  11.6 
Division  4.4.3 

Do  inner  paths  statement  8.3.1 
Dynamic  array  3. 5.1 

Element  declaration  3.2 
Element  specification  3.5.2 
Enumeration  type  3.4.4,  3.4.5, 

3.8.  4.5.2 

Enumeration  type  representation  10.3 
Equality  4 4.1 

Exception  condition  9.,  4.5.3, 

5.  ] , 5.7 

Exception  declaration  9.1,  9.3.1 
Exception  handler  9.2.  9.3.1.  9.3.2 
Exception  statement  9.3 
Exception  subprogram  9.1,  9.2.  9.3 
Expression  4.3.  5.1,  5.3,  5.4.  5.5. 

5.6.  6.1.  8.3.2,  8.3.3,  8.7, 

10.2,  10.4 


Factor  4.3 
For  clause  5. ft 

F irmal  parameter  6 2 (see  also 
Subprogram  declaration  and 
Sul  gram  body) 

Furictio  1 4.3 

Function  subprogram  6.4,  4.3,  6.5,  9,2 
11.7 


Loop  exit  statement  5.9 
Loop  parameter  5.8 
Loop  statement  5.8 

Multiple  box  selection  8.4.1 
Multiplying  operator  4.4.3, 
4.3.  4.4 


Generic  association  11.7 
Generic  instantiation  11.7 
Generic  parameter  1 1 .7 
Generic  program  unit  11.7 
Global  variable  (see  scope) 

Goto  statement  5.1 1 

Handler  ( see  Kxeeption  handler  I 
I •e.sadrcima!  number  2.4 

Identifier  2.2 
1!  nLateu'ieiit  5.5,  1 1 . G 
Import  clause  7.6,  3.9,  7.2 
Index  3.5,  4 . 1 
Inequality  4.4.1 
Iniiial  value  3.2 
Inline  statement  6.6 
Inline  subprogram  6.3 
Input  association 

(see  Inpul  parameter) 
Input-output  (low  level)  8.10 
I n f ml -output  1 1 ugh  level  | 111 
Input  parameter  6.2,  5 3. 

5.3.1,  5.3.2,  6.4 
Integer  2.3,  8.4. 1 
Integer  type  3.4. 1 , 2.8 
Interi upt  8.7 
Interrupt  clause  8.7 
lleratioi  speeila  ation  5.S 

Keyword  2.7 

I al , 5.1  1 

Leni'.Ml  s|n-r  1 1 |t  a(  |i  in  111'/ 

I \ |e:j|  l leineiils  / 
l,,'la'|es  1 1 I 

i.oeiil  request  st ii I eiiiei il  b.,’. 2, 

P.3  1.  M I 

| ,1 II  . 1 1 , ,11  nil  lie,  I sir  Si  i ||  II  I 


Name  2.1 

Named  parameter  5.3 
Namur  6.1,  6.3,  6 5.1 
Notation  ( see  Syntax  notation) 
Null  declaration  3.1 
Null  statement  5. 

Number  2.3.  4.2 
Numeric  type  3.4.  4.4,  4.5.1 

Open  request  clause  8.4 
Operator  4.4,  6.5.1 
Ordered  type  3.4.  8,4.4,  3.4.5 
Output  association  (see  Output 
parameter) 

Output  parameter  6.2,  5.3 
5.3.1,  5.3.2 
Overloading  6.5 
Own  variable  7.1 


backing  specifieatio  1 . 10.5 
Parameter  assoeialic 
5,3.1.  5,3.2 

Parameter  definition  6,1 
Fa  rent  type  3.3.  3.4,  3.8,  - 1 

(see  also  Subtype  and  Base  type) 
Path  body  8.2,  3,9,  7 ! , 

111,  11.7 

I’atli  declaration  8.1 , 7.3, 

8.3.1 

I'alli  denotation  8.3.3 
I'alh  exception  9.3.2.  9.3 
I'alli  priority  H.K  (see  also 
■Scheduling  l 

I'alli  si  h.-duling  i-ee  Scheduling! 
I’raginat  2.5.  2.M.  0.6. 

8 6,  9.4 

I'reeeilelH  e rules  4 4 
I'o  al  ii  mal  parai  teo-r  5 3 
I'rei  i-,i,  H i 8 I 3 


H 
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Predefined  exceptions  9.1,  9.3 
Prelude  9.1 
Primary  4.3 
Private  part  7.4 

Private  type  definition  7.4,  3.3 
Procedure  subprogram  6.1,  6.5, 

11.3,  11.7 
Program  11. 

Qualified  expression  4.5,  4.3 

Raise  statement  9.3 
Range  3.4,  3.6,  4.4.1  (see  also 
Range  denotation) 

Range  denotation  3.5.  4.3,  8.1. 

8.4.1 

Real  number  2.3,  3.4.3,  3.8 
Ri.il  type  3.4.3,  2.3,  3.8 
Receive  request  3.3.2,  8.3.4 
Recompilation  rules  11.2 
Record  aggregate  3.6.2,  4 3.  5.2 
Record  component  4. 1 
Record  constraint  3.6.2 
Record  type  3.6.  3.8.  5.1.2.  10.1. 

10.4  (see  also  Access  type) 
Record  type  representation  10.1.  10.4 
Relational  operator  4.4.1,  4.3,  4.4 
Real  number  2.3,  3. 1.3,  3.8 
Renaming  clause  7.6 
Renaming  declaration  3.2 
:*«  nde/vous  8.3,  8.3.4,  8.4 
Representation  change  10.5 
Representation  specification 
10,  3,8,  3.9 

Return  statement  5.4.  6.4 

Realm  constraint  3.4 
Scalar  type  3.  1 , 2.3.  1 . 2 
S.  alar  value  4.2 
Seal  * '( ; . jiiibei  2 5.  3.  1,  4.2. 

Sealed  i v pe  5.  1 2.  <j  6 

Si  bed, lime  6.9.  8.3.4.  8.  I.  6.8 

S<  i ' | i e i !i.  4. '.t.  a 1 ti.  i.l. 

9.2.  9.4  1 . 9.4.  1 1 2 
?|.  Up  I II  I ( .ee  Si  a .|  I,  ) 

S.  I.  . I ,,  ,i,  Ml-  III  !'■  ! 

S'4'  I I eil  Value  ,‘i  2 
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